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 (file)
--- 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));
+    }
 }
 
 {