[SCM] libtype-tiny-perl Debian packaging branch, master, updated. debian/0.016-1-48-ga7f6748

[Toby Inkster]

The following commit has been merged in the master branch:
commit 658c9ee18ef47f24d3b5d78057c944162c8ca047
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Fri Jul 19 21:30:58 2013 +0100

    make Data::Dumper more like B::perlstring()

diff --git a/lib/Devel/TypeTiny/Perl56Compat.pm b/lib/Devel/TypeTiny/Perl56Compat.pm
index 76471ca..8233357 100644
--- a/lib/Devel/TypeTiny/Perl56Compat.pm
+++ b/lib/Devel/TypeTiny/Perl56Compat.pm
@@ -11,7 +11,8 @@ unless (exists &B::perlstring)
 	require Data::Dumper;
 	my $d = 'Data::Dumper'->new([])->Indent(0)->Purity(0)->Pad('')->Useqq(1)->Terse(1)->Freezer('')->Toaster('');
 	*B::perlstring = sub {
-		$d->Values([''.shift])->Dump
+		my $perlstring = $d->Values([''.shift])->Dump;
+		($perlstring =~ /^"/) ? $perlstring : qq["$perlstring"];
 	};
 }
 

-- 
libtype-tiny-perl Debian packaging