]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
We don't really need a more lexical $_ in the test given blocks
authorVincent Pit <vince@profvince.com>
Thu, 14 Jan 2010 21:36:54 +0000 (22:36 +0100)
committerVincent Pit <vince@profvince.com>
Thu, 14 Jan 2010 21:36:54 +0000 (22:36 +0100)
t/lib/Scope/Upper/TestGenerator.pm

index 99764d5618f3fad75c3198f9206d31d0c065b36c..18ced2475f672c0380e48c08b9fe11c3228f3434 100644 (file)
@@ -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');
  }