From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Aug 2001 16:27:19 +0000 (+0000)
Subject: More test fixups for #11537.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f89e79d6a67c9c5a3944abe05fb62bcb8dbf4f08;p=p5sagit%2Fp5-mst-13.2.git

More test fixups for #11537.

p4raw-id: //depot/perl@11538
---

diff --git a/t/lib/warnings/4lint b/t/lib/warnings/4lint
index 848822d..805bd98 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 f5579b2..c3f2e39 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;