Rename warning to warnings, from Paul Marquess.
[p5sagit/p5-mst-13.2.git] / t / pragma / warn / utf8
index 380d53b..30f552a 100644 (file)
@@ -25,9 +25,9 @@ Malformed UTF-8 character at - line 3.
 use utf8 ;
 my $a = ord "\x80" ;
 {
-    use warning 'utf8' ;
+    use warnings 'utf8' ;
     my $a = ord "\x80" ;
-    no warning 'utf8' ;
+    no warnings 'utf8' ;
     my $a = ord "\x80" ;
 }
 EXPECT
@@ -45,9 +45,9 @@ Malformed UTF-8 character at - line 3.
 use utf8 ;
 my $a = ord "\xf080" ;
 {
-    use warning 'utf8' ;
+    use warnings 'utf8' ;
     my $a = ord "\xf080" ;
-    no warning 'utf8' ;
+    no warnings 'utf8' ;
     my $a = ord "\xf080" ;
 }
 EXPECT