From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 28 Mar 2001 17:03:12 +0000 (+0000)
Subject: Dup hunk.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d293bb6615e67800e5f314b6dbfa313554bfd58;p=p5sagit%2Fp5-mst-13.2.git

Dup hunk.

p4raw-id: //depot/perl@9413
---

diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t
index 2893ffc..cc2b26a 100644
--- a/t/op/utf8decode.t
+++ b/t/op/utf8decode.t
@@ -8,19 +8,6 @@ BEGIN {
 {
     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));
-    }
-}
-
-{
-    my $wide = v256;
-    use bytes;
     my $ordwide = ord($wide);
     printf "# under use bytes ord(v256) = 0x%02x\n", $ordwide;
     if ($ordwide == 140) {