p4raw-id: //depot/perl@14735
use Encode::JP;
use base 'Encode::Encoding';
+use strict;
+
# Just for the time being, we implement jis-7bit
# encoding via EUC
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