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

p4raw-id: //depot/perl@17504

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index aa08dce..6f56d50 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -3406,8 +3406,6 @@ tests have been added.
  op/split.t                                  46    1   2.17%  11
  op/sprintf.t                               224    3   1.34%  98 100 136
  op/stat.t                                   73    2   2.74%  41-42
- op/subst.t                                 122    2   1.64%  91-92
- op/subst_wamp.t                            122    2   1.64%  91-92
  op/taint.t                                 203    4   1.97%  1 3 31 37
  op/tr.t                                     97    5   5.15%  63 71-74
  run/fresh_perl.t                            97    1   1.03%  11

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