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().
-#!./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
is $1, $TAG, "void context //g against overloaded object";
}
-
-__END__
+done_testing();