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