was Re: [ID 19991102.003] perl on os390

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 5nolint

diff --git a/t/pragma/warn/5nolint b/t/pragma/warn/5nolint
index 979423e..994190a 100644 (file)
--- a/t/pragma/warn/5nolint
+++ b/t/pragma/warn/5nolint
@@ -24,17 +24,17 @@ EXPECT
 EXPECT
 ########
 -X
-# nolint: check "no warning" is zapped
-use warning ;
+# nolint: check "no warnings" is zapped
+use warnings ;
 $a = $b = 1 ;
 $a = 1 if $a EQ $b ;
 close STDIN ; print STDIN "abc" ;
 EXPECT
 ########
 -X
-# nolint: check "no warning" is zapped
+# nolint: check "no warnings" is zapped
 {
-  use warning ;
+  use warnings ;
   close STDIN ; print STDIN "abc" ;
 }
 EXPECT
@@ -49,24 +49,24 @@ EXPECT
 ########
 -X
 --FILE-- abc.pm
-use warning 'deprecated' ;
+use warnings 'deprecated' ;
 my ($a, $b) = (0,0);
 1 if $a EQ $b ;
 1;
 --FILE-- 
-use warning 'uninitialized' ;
+use warnings 'uninitialized' ;
 use abc;
 my $a ; chop $a ;
 EXPECT
 ########
 -X
 --FILE-- abc
-use warning 'deprecated' ;
+use warnings 'deprecated' ;
 my ($a, $b) = (0,0);
 1 if $a EQ $b ;
 1;
 --FILE-- 
-use warning 'uninitialized' ;
+use warnings 'uninitialized' ;
 require "./abc";
 my $a ; chop $a ;
 EXPECT