From: Vincent Pit Date: Thu, 14 Jan 2010 21:36:54 +0000 (+0100) Subject: We don't really need a more lexical $_ in the test given blocks X-Git-Tag: v0.10~14 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=51697dfaf719db3a540a2c8eb5e98ced6a5c6142 We don't really need a more lexical $_ in the test given blocks --- diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm index 99764d5..18ced24 100644 --- a/t/lib/Scope/Upper/TestGenerator.pm +++ b/t/lib/Scope/Upper/TestGenerator.pm @@ -27,7 +27,7 @@ my @blocks = ( sub import { if ($] >= 5.010001) { - push @blocks, [ 'given (1) { my $_;', '}' ]; + push @blocks, [ 'given (1) {', '}' ]; require feature; feature->import('switch'); }