Easy z/OS fix by skipping raw UTF-8.

[p5sagit/p5-mst-13.2.git] / t / op / subst.t

diff --git a/t/op/subst.t b/t/op/subst.t
index 3fa6a9a..63fb6c6 100755 (executable)
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -380,26 +380,30 @@ $pv1 =~ s/A/\x{100}/;
 substr($pv2,0,1) = "\x{100}";
 is($pv1, $pv2);
 
-{   
-    # Gregor Chrupala <gregor.chrupala@star-group.net>
-    use utf8;
-    $a = 'Espa&ntilde;a';
-    $a =~ s/&ntilde;/ñ/;
-    like($a, qr/ñ/, "use utf8 RHS");
-}
-
-{
-    use utf8;
-    $a = 'España España';
-    $a =~ s/ñ/&ntilde;/;
-    like($a, qr/ñ/, "use utf8 LHS");
-}
-
-{
-    use utf8;
-    $a = 'España';
-    $a =~ s/ñ/ñ/;
-    like($a, qr/ñ/, "use utf8 LHS and RHS");
+SKIP: {
+    skip("EBCDIC", 3) if ord("A") == 193; 
+
+    {   
+       # Gregor Chrupala <gregor.chrupala@star-group.net>
+       use utf8;
+       $a = 'Espa&ntilde;a';
+       $a =~ s/&ntilde;/ñ/;
+       like($a, qr/ñ/, "use utf8 RHS");
+    }
+
+    {
+       use utf8;
+       $a = 'España España';
+       $a =~ s/ñ/&ntilde;/;
+       like($a, qr/ñ/, "use utf8 LHS");
+    }
+
+    {
+       use utf8;
+       $a = 'España';
+       $a =~ s/ñ/ñ/;
+       like($a, qr/ñ/, "use utf8 LHS and RHS");
+    }
 }
 
 {