From 4438c4b75b842b6c829a7da9841e97abb875b1d8 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 29 Aug 1999 10:18:59 +0000
Subject: Rename warning to warnings, from Paul Marquess.

p4raw-id: //depot/cfgperl@4038
---
 t/pragma/warn/3both | 72 ++++++++++++++++++++++++++---------------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

(limited to 't/pragma/warn/3both')

diff --git a/t/pragma/warn/3both b/t/pragma/warn/3both
index 1d7deb8636..592724ad73 100644
--- a/t/pragma/warn/3both
+++ b/t/pragma/warn/3both
@@ -2,9 +2,9 @@ Check interaction of $^W and lexical
 
 __END__
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    use warning ;
+    use warnings ;
     my $b ; 
     chop $b ;
 }
@@ -16,9 +16,9 @@ EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    use warning ;
+    use warnings ;
     my $b ; 
     chop $b ;
 }
@@ -30,9 +30,9 @@ EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    no warning ;
+    no warnings ;
     my $b ; 
     chop $b ;
 }
@@ -44,9 +44,9 @@ EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    no warning ;
+    no warnings ;
     my $b ; 
     chop $b ;
 }
@@ -58,8 +58,8 @@ EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
-use warning ;
+# Check interaction of $^W and use warnings
+use warnings ;
 $^W = 1 ;
 my $b ; 
 chop $b ;
@@ -67,26 +67,26 @@ EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 $^W = 1 ;
-use warning ;
+use warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 $^W = 1 ;
-no warning ;
+no warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
-no warning ;
+# Check interaction of $^W and use warnings
+no warnings ;
 $^W = 1 ;
 my $b ; 
 chop $b ;
@@ -94,25 +94,25 @@ EXPECT
 
 ########
 -w
-# Check interaction of $^W and use warning
-no warning ;
+# Check interaction of $^W and use warnings
+no warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 
 ########
 -w
-# Check interaction of $^W and use warning
-use warning ;
+# Check interaction of $^W and use warnings
+use warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 Use of uninitialized value at - line 5.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    use warning ;
+    use warnings ;
     my $b ; 
     chop $b ;
 }
@@ -122,9 +122,9 @@ EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 sub fred { 
-    no warning ;
+    no warnings ;
     my $b ; 
     chop $b ;
 }
@@ -135,8 +135,8 @@ EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
-use warning ;
+# Check interaction of $^W and use warnings
+use warnings ;
 BEGIN {  $^W = 1 }
 my $b ; 
 chop $b ;
@@ -144,26 +144,26 @@ EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 BEGIN {  $^W = 1 }
-use warning ;
+use warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 Use of uninitialized value at - line 6.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 BEGIN {  $^W = 1 }
-no warning ;
+no warnings ;
 my $b ; 
 chop $b ;
 EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
-no warning ;
+# Check interaction of $^W and use warnings
+no warnings ;
 BEGIN {  $^W = 1 }
 my $b ; 
 chop $b ;
@@ -171,10 +171,10 @@ EXPECT
 
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 BEGIN {  $^W = 1 }
 {
-    no warning ;
+    no warnings ;
     my $b ; 
     chop $b ;
 }
@@ -184,10 +184,10 @@ EXPECT
 Use of uninitialized value at - line 10.
 ########
 
-# Check interaction of $^W and use warning
+# Check interaction of $^W and use warnings
 BEGIN {  $^W = 0 }
 {
-    use warning ;
+    use warnings ;
     my $b ; 
     chop $b ;
 }
-- 
cgit v1.2.1