From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 12 Jul 2002 13:53:15 +0000 (+0000)
Subject: Easy z/OS fix by skipping raw UTF-8.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e9639e9bc1a4675bb5cf642e9264de0a65c49fe;p=p5sagit%2Fp5-mst-13.2.git

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