Buglet.
Jarkko Hietaniemi [Sun, 17 Feb 2002 21:24:26 +0000 (21:24 +0000)]
p4raw-id: //depot/perl@14735

ext/Encode/lib/Encode/JP/JIS.pm

index 6ee3c84..394a7e6 100644 (file)
@@ -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