diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 16:50:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 16:50:03 +0000 |
| commit | 7847df5a36f8e61e9a1cfaa59d60168ea45d5381 (patch) | |
| tree | 0e8c590e273f9b3154dcddf2772e6d193cceb0e7 /t/op/utf8decode.t | |
| parent | daf0f78e031c718c75590ef9ef573756f805776e (diff) | |
| parent | a660608e605447cc8d265475a0ccbf29d8ac10f3 (diff) | |
| download | perl-7847df5a36f8e61e9a1cfaa59d60168ea45d5381.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@9411
Diffstat (limited to 't/op/utf8decode.t')
| -rw-r--r-- | t/op/utf8decode.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t index 824805d5df..2893ffc62b 100644 --- a/t/op/utf8decode.t +++ b/t/op/utf8decode.t @@ -3,7 +3,6 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; - } { @@ -19,6 +18,20 @@ BEGIN { } } +{ + my $wide = v256; + use bytes; + my $ordwide = ord($wide); + printf "# under use bytes ord(v256) = 0x%02x\n", $ordwide; + if ($ordwide == 140) { + print "1..0 # Skip: UTF-EBCDIC (not UTF-8) used here\n"; + exit 0; + } + elsif ($ordwide != 196) { + printf "# v256 starts with 0x%02x\n", $ordwide; + } +} + no utf8; print "1..78\n"; |