[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 cb1be3e892cab8c42c1858bbc845316402075a2e
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Mon Jul 22 22:53:07 2013 +0100

    improve B::perlstring implementation behaviour in global destruction

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

-- 
libtype-tiny-perl Debian packaging