This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In overload.t, move require './test.pl' into BEGIN to avoid stubbing subs.
authorNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 15:20:07 +0000 (15:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 13 Mar 2011 15:20:07 +0000 (15:20 +0000)
Also move the use of strict and warnings after the BEGIN block, so that they
can take advantage of the @INC setting it performs. Swap to done_testing().

t/re/overload.t

index f89069b..4e99bd3 100644 (file)
@@ -1,19 +1,13 @@
-#!./perl
-
-use strict;
-use warnings;
-no  warnings 'syntax';
+#!./perl -w
 
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
-sub is;
-sub plan;
-
-require './test.pl';
-plan tests => 3;
+use strict;
+no  warnings 'syntax';
 
 {
     # Bug #77084 points out a corruption problem when scalar //g is used
@@ -39,5 +33,4 @@ plan tests => 3;
     is $1, $TAG, "void context //g against overloaded object";
 }
 
-
-__END__
+done_testing();