diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 18:49:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 18:49:34 +0000 |
| commit | f9bc06f4d893267416bace4dc0ecfcf5cc1adb7b (patch) | |
| tree | f047776c6745113bea7d6fdccb2e7ac04dd6e87a /t/op/utf8decode.t | |
| parent | d19fbd04076ae880af8ebed3883160a9bad39a03 (diff) | |
| parent | ac829cc3fb088ab84d8c0df184b703b601212226 (diff) | |
| download | perl-f9bc06f4d893267416bace4dc0ecfcf5cc1adb7b.tar.gz | |
Integrate perlio:
[ 9421]
Loose duplicate chunk.
p4raw-link: @9421 on //depot/perlio: ac829cc3fb088ab84d8c0df184b703b601212226
p4raw-id: //depot/perl@9422
Diffstat (limited to 't/op/utf8decode.t')
| -rw-r--r-- | t/op/utf8decode.t | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t index 04656ec9f6..cc2b26aaf3 100644 --- a/t/op/utf8decode.t +++ b/t/op/utf8decode.t @@ -8,18 +8,6 @@ BEGIN { { my $wide = v256; use bytes; - 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)); - } -} - -{ - my $wide = v256; - use bytes; my $ordwide = ord($wide); printf "# under use bytes ord(v256) = 0x%02x\n", $ordwide; if ($ordwide == 140) { |