[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 ee3af9cb2ba14c9d533aac74b734a65bf6212b70
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Tue Jul 23 17:11:03 2013 +0100

    tidy

diff --git a/lib/Eval/TypeTiny.pm b/lib/Eval/TypeTiny.pm
index ff12cd5..59fd4e2 100644
--- a/lib/Eval/TypeTiny.pm
+++ b/lib/Eval/TypeTiny.pm
@@ -83,10 +83,11 @@ my $tmp;
 sub _make_lexical_assignment
 {
 	my ($key, $index) = @_;
+	my $name = substr($key, 1);
+	
 	if (HAS_LEXICAL_SUBS and $key =~ /^\&/) {
 		$tmp++;
 		my $tmpname = '$__LEXICAL_SUB__'.$tmp;
-		my $name    = substr($key, 1);
 		return
 			"no warnings 'experimental::lexical_subs';".
 			"use feature 'lexical_subs';".
@@ -97,7 +98,7 @@ sub _make_lexical_assignment
 	sprintf(
 		'our %s; *%s = $_[%d];',
 		$key,
-		substr($key, 1),
+		$name,
 		$index,
 	);
 }

-- 
libtype-tiny-perl Debian packaging