From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 28 Mar 2001 17:02:36 +0000 (+0000)
Subject: Forced integrate from perlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8b9316414382bbd67f8462a868a63216a18ce44;p=p5sagit%2Fp5-mst-13.2.git

Forced integrate from perlio.

p4raw-id: //depot/perl@9412
p4raw-integrated: from //depot/perlio@9410 'copy in' t/op/utf8decode.t
	(@9400..)
---

diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t
index 494aa8c..2893ffc 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));
+    }
 }
 
 {