[perl #22971] [PATCH] Proper capitalization for IO.pm deprecation warning

From: "ilya@juil.nonet (via RT)" <perlbug-followup@perl.org>
Message-ID: <rt-22971-60818.3.78636614866039@rt.perl.org>

p4raw-id: //depot/perl@20194

diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm
index 287671e..70017cb 100644 (file)
--- a/ext/IO/IO.pm
+++ b/ext/IO/IO.pm
@@ -13,7 +13,7 @@ XSLoader::load 'IO', $VERSION;
 sub import {
     shift;
 
-    warnings::warnif('deprecated', qq{parameterless "use IO" deprecated})
+    warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
         if @_ == 0 ;
     
     my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);

diff --git a/ext/IO/lib/IO/t/IO.t b/ext/IO/lib/IO/t/IO.t
index 89226af..d7aade7 100644 (file)
--- a/ext/IO/lib/IO/t/IO.t
+++ b/ext/IO/lib/IO/t/IO.t
@@ -50,7 +50,7 @@ local $SIG{__WARN__} = sub { $warn = "@_" } ;
 {
     local $^W = 1;
     IO->import();
-    like( $warn, qr/^parameterless "use IO" deprecated at/, 
+    like( $warn, qr/^Parameterless "use IO" deprecated at/, 
               "... import default, should warn");
     $warn = '' ;
 }
@@ -58,7 +58,7 @@ local $SIG{__WARN__} = sub { $warn = "@_" } ;
 {
     use warnings 'deprecated' ;
     IO->import(); 
-    like( $warn, qr/^parameterless "use IO" deprecated at/, 
+    like( $warn, qr/^Parameterless "use IO" deprecated at/, 
               "... import default, should warn");
     $warn = '' ;
 }
@@ -66,7 +66,7 @@ local $SIG{__WARN__} = sub { $warn = "@_" } ;
 {
     use warnings ;
     IO->import();
-    like( $warn, qr/^parameterless "use IO" deprecated at/, 
+    like( $warn, qr/^Parameterless "use IO" deprecated at/, 
               "... import default, should warn");
     $warn = '' ;
 }