diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 18:46:44 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-28 18:46:44 +0000 |
| commit | ac829cc3fb088ab84d8c0df184b703b601212226 (patch) | |
| tree | 7876ca4e76c507a235fbb545ab6c4cbfacaa12aa /t/op/utf8decode.t | |
| parent | ccf9cce67a3c1245cd98e2e10917597bb5ca12e7 (diff) | |
| download | perl-ac829cc3fb088ab84d8c0df184b703b601212226.tar.gz | |
Loose duplicate chunk.
p4raw-id: //depot/perlio@9421
Diffstat (limited to 't/op/utf8decode.t')
| -rwxr-xr-x | 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 100755 --- 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) { |