diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 17:02:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 17:02:36 +0000 |
| commit | f8b9316414382bbd67f8462a868a63216a18ce44 (patch) | |
| tree | b747082527a663a752608a1559f0974275463f7a /t | |
| parent | 9156fa33f8e7d395cd9ded80d1d71876f45c2352 (diff) | |
| download | perl-f8b9316414382bbd67f8462a868a63216a18ce44.tar.gz | |
Forced integrate from perlio.
p4raw-id: //depot/perl@9412
p4raw-integrated: from //depot/perlio@9410 'copy in' t/op/utf8decode.t
(@9400..)
Diffstat (limited to 't')
| -rw-r--r-- | t/op/utf8decode.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t index 494aa8cfb8..2893ffc62b 100644 --- a/t/op/utf8decode.t +++ b/t/op/utf8decode.t @@ -3,7 +3,19 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; +} +{ + my $wide = v256; + use bytes; + print STDERR ord($wide),"\n"; + if (ord($wide) == 140) { + print "1..0 # Skip: UTF-EBCDIC (not UTF-8) used here\n"; + exit 0; + } + elsif (ord($wide) != 196) { + warn sprintf("v256 starts with %02X\n",ord($wide)); + } } { |