summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-08-01 16:27:19 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-01 16:27:19 +0000
commitf89e79d6a67c9c5a3944abe05fb62bcb8dbf4f08 (patch)
tree3e254eb32aac5eea7065c4b178bcdc3e305c730e
parent18fc948826e2e527e52b790d8ec042fac21d6b8a (diff)
downloadperl-f89e79d6a67c9c5a3944abe05fb62bcb8dbf4f08.tar.gz
More test fixups for #11537.
p4raw-id: //depot/perl@11538
-rw-r--r--t/lib/warnings/4lint9
-rwxr-xr-xt/lib/warnings/9enabled1
2 files changed, 7 insertions, 3 deletions
diff --git a/t/lib/warnings/4lint b/t/lib/warnings/4lint
index 848822dd30..805bd98905 100644
--- a/t/lib/warnings/4lint
+++ b/t/lib/warnings/4lint
@@ -57,6 +57,7 @@ print() on closed filehandle STDIN at - line 5.
########
-W
--FILE-- abc.pm
+package abc;
no warnings 'syntax' ;
my $a = 0;
$a =+ 1 ;
@@ -66,11 +67,12 @@ no warnings 'uninitialized' ;
use abc;
my $a ; chop $a ;
EXPECT
-Reversed += operator at abc.pm line 3.
+Reversed += operator at abc.pm line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc
+package abc;
no warnings 'syntax' ;
my $a = 0;
$a =+ 1 ;
@@ -80,11 +82,12 @@ no warnings 'uninitialized' ;
require "./abc";
my $a ; chop $a ;
EXPECT
-Reversed += operator at ./abc line 3.
+Reversed += operator at ./abc line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc.pm
+package abc;
BEGIN {$^W = 0}
my $a = 0 ;
$a =+ 1 ;
@@ -94,7 +97,7 @@ $^W = 0 ;
use abc;
my $a ; chop $a ;
EXPECT
-Reversed += operator at abc.pm line 3.
+Reversed += operator at abc.pm line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W
diff --git a/t/lib/warnings/9enabled b/t/lib/warnings/9enabled
index f5579b2dde..c3f2e394d1 100755
--- a/t/lib/warnings/9enabled
+++ b/t/lib/warnings/9enabled
@@ -151,6 +151,7 @@ print "ok1\n" if ! warnings::enabled('all') ;
print "ok2\n" if ! warnings::enabled("io") ;
1;
--FILE-- def.pm
+package def;
no warnings;
use abc ;
1;