From 8f21750f6aa17cd46bfa0d30fb112d2e134c67ce Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 17 Feb 2002 21:24:26 +0000 Subject: [PATCH] Buglet. p4raw-id: //depot/perl@14735 --- ext/Encode/lib/Encode/JP/JIS.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ext/Encode/lib/Encode/JP/JIS.pm b/ext/Encode/lib/Encode/JP/JIS.pm index 6ee3c84..394a7e6 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 -- 2.7.4