diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-01 16:27:19 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-01 16:27:19 +0000 |
commit | f89e79d6a67c9c5a3944abe05fb62bcb8dbf4f08 (patch) | |
tree | 3e254eb32aac5eea7065c4b178bcdc3e305c730e | |
parent | 18fc948826e2e527e52b790d8ec042fac21d6b8a (diff) | |
download | perl-f89e79d6a67c9c5a3944abe05fb62bcb8dbf4f08.tar.gz |
More test fixups for #11537.
p4raw-id: //depot/perl@11538
-rw-r--r-- | t/lib/warnings/4lint | 9 | ||||
-rwxr-xr-x | t/lib/warnings/9enabled | 1 |
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; |