Move &do_require to the top of require.t, so that @a is the first lexical.
authorNicholas Clark <nick@ccl4.org>
Thu, 8 Oct 2009 19:05:34 +0000 (21:05 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 8 Oct 2009 19:05:34 +0000 (21:05 +0200)
The relevant line, with comment, is:

    my @a; # magic guard for scope violations (must be first lexical in file)

t/comp/require.t

index 032a147..0a2293b 100644 (file)
@@ -6,6 +6,13 @@ BEGIN {
     push @INC, '../lib';
 }
 
     push @INC, '../lib';
 }
 
+sub do_require {
+    %INC = ();
+    write_file('bleah.pm',@_);
+    eval { require "bleah.pm" };
+    my @a; # magic guard for scope violations (must be first lexical in file)
+}
+
 # don't make this lexical
 $i = 1;
 
 # don't make this lexical
 $i = 1;
 
@@ -19,13 +26,6 @@ my $total_tests = 49;
 if ($Is_EBCDIC || $Is_UTF8) { $total_tests -= 3; }
 print "1..$total_tests\n";
 
 if ($Is_EBCDIC || $Is_UTF8) { $total_tests -= 3; }
 print "1..$total_tests\n";
 
-sub do_require {
-    %INC = ();
-    write_file('bleah.pm',@_);
-    eval { require "bleah.pm" };
-    my @a; # magic guard for scope violations (must be first lexical in file)
-}
-
 sub write_file {
     my $f = shift;
     open(REQ,">$f") or die "Can't write '$f': $!";
 sub write_file {
     my $f = shift;
     open(REQ,">$f") or die "Can't write '$f': $!";