Buglet.

p4raw-id: //depot/perl@14735

diff --git a/ext/Encode/lib/Encode/JP/JIS.pm b/ext/Encode/lib/Encode/JP/JIS.pm
index 6ee3c84..394a7e6 100644 (file)
--- 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