diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-11 23:38:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-11 23:38:28 +0000 |
| commit | 9caa78f3ec6917fadd3faa86111398c2f6153e29 (patch) | |
| tree | 3d8c178658c31846b2215d3127267dc823a78d8b /t/op/each.t | |
| parent | 9cc6b47a06fb6cfaecdd6a8bf3ea4204577b2a05 (diff) | |
| download | perl-9caa78f3ec6917fadd3faa86111398c2f6153e29.tar.gz | |
EBCDIC: pack U is no more equal to concat of \xHHs.
p4raw-id: //depot/perl@14649
Diffstat (limited to 't/op/each.t')
| -rwxr-xr-x | t/op/each.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/each.t b/t/op/each.t index cb4cd2d9ab..0110da0af7 100755 --- a/t/op/each.t +++ b/t/op/each.t @@ -163,7 +163,7 @@ ok ($ol > 3, "check encoding on EBCDIC"); %u = ($d => "downgrade"); for (keys %u) { ok (length == 3, "check length"); - is ($_, "\xe3\x81\xAF", "check value"); + is ($_, pack("U*", 0xe3, 0x81, 0xAF), "check value"); } { { use bytes; ok (bytes::length($d) == $ol) } |