From: ilya@juil.nonet <ilya@juil.nonet>
Date: Mon, 14 Jul 2003 05:37:15 +0000 (+0000)
Subject: [perl #22971] [PATCH] Proper capitalization for IO.pm deprecation warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d94a06f324a7780ceae13417507dd108f113ec9;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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 = '' ;
 }