Change 11538 by jhi@alpha on 2001/08/01 16:27:19
More test fixups for #11537.
Affected files ...
... //depot/perl/t/lib/warnings/4lint#2 edit
... //depot/perl/t/lib/warnings/9enabled#2 edit
Differences ...
==== //depot/perl/t/lib/warnings/4lint#2 (text) ====
Index: perl/t/lib/warnings/4lint
--- perl/t/lib/warnings/4lint.~1~ Wed Aug 1 10:30:05 2001
+++ perl/t/lib/warnings/4lint Wed Aug 1 10:30:05 2001
@@ -57,6 +57,7 @@
########
-W
--FILE-- abc.pm
+package abc;
no warnings 'syntax' ;
my $a = 0;
$a =+ 1 ;
@@ -66,11 +67,12 @@
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 @@
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 @@
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
==== //depot/perl/t/lib/warnings/9enabled#2 (xtext) ====
Index: perl/t/lib/warnings/9enabled
--- perl/t/lib/warnings/9enabled.~1~ Wed Aug 1 10:30:05 2001
+++ perl/t/lib/warnings/9enabled Wed Aug 1 10:30:05 2001
@@ -151,6 +151,7 @@
print "ok2\n" if ! warnings::enabled("io") ;
1;
--FILE-- def.pm
+package def;
no warnings;
use abc ;
1;
End of Patch.
