1N/Aour $
VERSION =
do {
my @r = (q$
Revision:
1.12 $ =~ /\d+/g);
sprintf "%d.".
"%02d" x $
#r, @r }; 1N/Afor my $
name (
'7bit-jis',
'iso-2022-jp',
'iso-2022-jp-1'){
1N/A# we override this to 1 so PerlIO works 1N/A# decode is identical for all 2022 variants 1N/A# encode is different 1N/A # empty the input string in the stack so perlio is ok 1N/A my ($
obj,
undef,
undef, $
pos, $
trm) = @_;
# currently ignores $chk 1N/A ($
1, $
2, $
3, $
4, $
5);
1N/AEncode::JP::JIS7 -- internally used by Encode::JP