Re: Off by one in the trie code?
authorYves Orton <demerphq@gmail.com>
Wed, 18 Oct 2006 20:51:41 +0000 (22:51 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 19 Oct 2006 20:47:53 +0000 (20:47 +0000)
Message-ID: <9b18b3110610181151i3ca438cdied769ebaa4255079@mail.gmail.com>

change test files that do a require "./test.pl"; without a BEGIN block
to ensure prototypes are seen, plus fix any breakage this reveals.

p4raw-id: //depot/perl@29056

ext/Devel/Peek/t/Peek.t
ext/POSIX/t/posix.t
lib/vmsish.t
t/comp/parser.t
t/comp/utf.t
t/io/argv.t
t/io/utf8.t
t/op/stash.t
t/run/switchC.t
t/run/switchd.t
t/run/switches.t

index cf20f8b..57e84d7 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 use Devel::Peek;
 
index 58b3a48..6d7da84 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 plan(tests => 65);
 
 use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read strftime write
index f40e434..847d1a6 100644 (file)
@@ -10,7 +10,7 @@ $perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
 
 my $Invoke_Perl = qq(MCR $perl "-I[-.lib]");
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 plan(tests => 25);
 
 SKIP: {
index a050858..2599bdf 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 plan( tests => 60 );
 
 eval '%@x=0;';
index 90a9e5e..f0673eb 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
     }
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan(tests => 15);
 
index 8a63c65..c24dad5 100755 (executable)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan(tests => 22);
 
index 22f392a..2117338 100755 (executable)
@@ -11,7 +11,7 @@ BEGIN {
 
 no utf8; # needed for use utf8 not griping about the raw octets
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan(tests => 55);
 
@@ -231,7 +231,7 @@ is($failed, undef);
     print F chr(0x100);
     close(F);
 
-    isnt( defined $@ );
+    isnt( defined $@, !0 );
 
     undef $@;
     open F, ">a";
@@ -239,7 +239,7 @@ is($failed, undef);
     print F chr(0x100);
     close(F);
 
-    isnt( defined $@ );
+    isnt( defined $@, !0 );
 
     no warnings 'utf8';
 
@@ -248,7 +248,7 @@ is($failed, undef);
     print F chr(0x100);
     close(F);
 
-    isnt( defined $@ );
+    isnt( defined $@, !0 );
 
     use warnings 'utf8';
 
index 53abbdd..4d8bc7c 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(../lib);
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan( tests => 13 );
 
index fd05e13..082f972 100644 (file)
@@ -11,7 +11,7 @@ BEGIN {
     }
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan(tests => 6);
 
index b840a98..30ae53b 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(../lib lib);
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 # This test depends on t/lib/Devel/switchd.pm.
 
index 1f6cf66..7a778a4 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 
 plan(tests => 31);