diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-13 19:10:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-13 19:10:08 +0000 |
| commit | 046f36bf3704c511ef3805d7e85e91c163efa516 (patch) | |
| tree | ec7561d224903d5f30b6fe19dee40f4f25e0ee05 /ext | |
| parent | 6d871336a6cb82a0f2aa055ba4e71ceecec195c7 (diff) | |
| download | perl-046f36bf3704c511ef3805d7e85e91c163efa516.tar.gz | |
Tweaks by Autrijus Tang.
p4raw-id: //depot/perl@15896
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/encoding.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm index a0a620868f..16dee961f3 100644 --- a/ext/Encode/encoding.pm +++ b/ext/Encode/encoding.pm @@ -2,6 +2,7 @@ package encoding; our $VERSION = do { my @r = (q$Revision: 1.25 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; +use strict; BEGIN { if (ord("A") == 193) { @@ -28,9 +29,9 @@ sub import { if ($arg{$h}){ unless (defined find_encoding($name)) { require Carp; - Carp::croak "Unknown encoding for $fhname, '$arg{$h}'"; + Carp::croak "Unknown encoding for $h, '$arg{$h}'"; } - eval qq{ binmode($h, ":encoding($arg{h})") }; + eval qq{ binmode($h, ":encoding($arg{$h})") }; }else{ eval qq{ binmode($h, ":encoding($name)") }; } |