localize $_

tobyink · Nov 6, 2013 · 1d4d2ce · 1d4d2ce
1 parent 1e794e1
commit 1d4d2ce
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Type/Params.pm b/lib/Type/Params.pm
@@ -40,6 +40,8 @@ BEGIN {
 sub _mkslurpy
 {
 	my ($name, $type, $tc, $i) = @_;
+	$name = 'local $_' if $name eq '$_';
+
 	$type eq '@'
 		? sprintf(
 			'%s = [ @_[%d..$#_] ];',