X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Fwarn%2Fdoop;h=cce6bdc07ccbee1cef5dbab14b9ec9feef468144;hb=146174a91a192983720a158796dc066226ad0e55;hp=961d157502dd9a28960d24a4629d8b23e1cd29a4;hpb=c529f79d594c53d3968d464c57ac24a21137dd09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/warn/doop b/t/pragma/warn/doop
index 961d157..cce6bdc 100644
--- 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.