diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-17 21:24:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-17 21:24:26 +0000 |
| commit | 8f21750f6aa17cd46bfa0d30fb112d2e134c67ce (patch) | |
| tree | c607b118477aef7f953be439e0098b8874cae770 /ext/Encode | |
| parent | 2a37f04dcbe9376a1280272d62501209825ac83c (diff) | |
| download | perl-8f21750f6aa17cd46bfa0d30fb112d2e134c67ce.tar.gz | |
Buglet.
p4raw-id: //depot/perl@14735
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/lib/Encode/JP/JIS.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Encode/lib/Encode/JP/JIS.pm b/ext/Encode/lib/Encode/JP/JIS.pm index 6ee3c84549..394a7e62d3 100644 --- a/ext/Encode/lib/Encode/JP/JIS.pm +++ b/ext/Encode/lib/Encode/JP/JIS.pm @@ -2,6 +2,8 @@ package Encode::JP::JIS; use Encode::JP; use base 'Encode::Encoding'; +use strict; + # Just for the time being, we implement jis-7bit # encoding via EUC @@ -14,7 +16,7 @@ sub decode my ($obj,$str,$chk) = @_; my $res = $str; jis_euc(\$res); - return Encode::decode('euc-jp', $euc, $chk); + return Encode::decode('euc-jp', $res, $chk); } sub encode |