Quick integration of mainline changes to date

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / doop

diff --git a/t/pragma/warn/doop b/t/pragma/warn/doop
index 961d157..cce6bdc 100644 (file)
--- a/t/pragma/warn/doop
+++ b/t/pragma/warn/doop
@@ -12,6 +12,12 @@ EXPECT
 Malformed UTF-8 character at - line 4.
 ########
 # doop.c
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Character codes differ on ebcdic machines.";
+        exit 0;
+    }
+}
 use warnings 'utf8'  ;
 use utf8 ;
 $_ = "\x80  \xff" ;
@@ -20,6 +26,6 @@ no warnings 'utf8'  ;
 $_ = "\x80  \xff" ;
 chop ;
 EXPECT
-\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 4.
-\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 4.
-Malformed UTF-8 character at - line 5.
+\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 10.
+\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 10.
+Malformed UTF-8 character at - line 11.