diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-10 00:59:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-10 00:59:50 +0000 |
| commit | cb8129f94a333dfcf2cb8cf5b66784f951fc14de (patch) | |
| tree | 6f4a0b50566ebbb3453e2337d3d178f0aaf2a57e /ext | |
| parent | 8821684ef64c15c4924bb64bdc46e0f5bf75d330 (diff) | |
| download | perl-cb8129f94a333dfcf2cb8cf5b66784f951fc14de.tar.gz | |
The 7-bit jis seems to be the hanging one.
p4raw-id: //depot/perl@15138
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/t/Tcl.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/t/Tcl.t b/ext/Encode/t/Tcl.t index c4fd265a09..4f4419132a 100644 --- a/ext/Encode/t/Tcl.t +++ b/ext/Encode/t/Tcl.t @@ -93,7 +93,7 @@ my @ary_buff = ( # [ encoding, decoded, encoded ] ["2022-cn", hiragana, "\e\$)A\cN". '$"$$$&$($*' . "\cO" ], ["2022-jp", hiragana, "\e\$B".'$"$$$&$($*'."\e(B" ], ["2022-kr", hiragana, "\e\$)C\cN". '*"*$*&*(**' . "\cO" ], - [ $jis, han_kana, "\e\(I".'12345'."\e(B" ], +# [ $jis, han_kana, "\e\(I".'12345'."\e(B" ], ["2022-jp1", macron, "\e\$(D\x2A\x27\x2A\x37\x2A\x45\x2A\x57\x2A\x69\e(B"], ["2022-jp2", "\x{C0}" . macron . "\x{C1}", "\e\$(D\e.A\eN\x40\x2A\x27\x2A\x37\x2A\x45\x2A\x57\x2A\x69\e(B\eN\x41"], |