diff options
| author | ilya@juil.nonet <ilya@juil.nonet> | 2003-07-14 05:37:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-24 08:45:55 +0000 |
| commit | 1d94a06f324a7780ceae13417507dd108f113ec9 (patch) | |
| tree | 16992b37f9bce3e3bcdfb7521af9df8e0d95b485 | |
| parent | 96e47f5ba733cae0f440f31ded7475fca1ce9a66 (diff) | |
| download | perl-1d94a06f324a7780ceae13417507dd108f113ec9.tar.gz | |
[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
| -rw-r--r-- | ext/IO/IO.pm | 2 | ||||
| -rw-r--r-- | ext/IO/lib/IO/t/IO.t | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm index 287671e797..70017cbd46 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 89226af71a..d7aade7e78 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 = '' ; } |