From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 17 Feb 2002 21:24:26 +0000 (+0000)
Subject: Buglet.
X-Git-Tag: accepted/trunk/20130322.191538~28030
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8f21750f6aa17cd46bfa0d30fb112d2e134c67ce;p=platform%2Fupstream%2Fperl.git

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
--- 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