diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 11:46:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 11:46:02 +0000 |
| commit | 6ee35fb7e604a038209f7db33f1e4817a38d5c05 (patch) | |
| tree | 8a1139763985e4badf445b53b49eca765abc8672 /t/op/misc.t | |
| parent | 32c0e916b39148c319a03b9479ed34c7582453f3 (diff) | |
| download | perl-6ee35fb7e604a038209f7db33f1e4817a38d5c05.tar.gz | |
Fix for 20010407.008 sprintf removes utf8-ness.
p4raw-id: //depot/perl@11691
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index e7f1623a28..e55e18a0a2 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -724,9 +724,14 @@ sub DESTROY { EXPECT Bar=ARRAY(0x...) ######## -printf "%x %x", unpack "U*", sprintf "\x{1234}%s", "\x{5678}" -EXPECT -1234 5678 +# 20010407.008 sprintf removes utf8-ness +$a = sprintf "\x{1234}"; +printf "%x %d\n", unpack("U*", $a), length($a); +$a = sprintf "\x{1234}%s", "\x{5678}"; +printf "%x %x %d\n", unpack("U*", $a), length($a); +EXPECT +1234 1 +1234 5678 2 ######## # keep this last - doesn't seem to work otherwise? eval "a.b.c.d.e.f;sub" |