Change 33776: [PATCH] t/op/pat.t

[H . Merijn Brand]

Change 33776 by [EMAIL PROTECTED] on 2008/05/01 18:32:18

        Subject: [PATCH] t/op/pat.t
        From: "Robin Barker" <[EMAIL PROTECTED]>
        Date: Thu, 1 May 2008 19:12:28 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/t/op/pat.t#313 edit

Differences ...

==== //depot/perl/t/op/pat.t#313 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#312~33768~  2008-04-30 02:40:36.000000000 -0700
+++ perl/t/op/pat.t     2008-05-01 11:32:18.000000000 -0700
@@ -4617,7 +4617,7 @@
 }
 
 SKIP: {
-    if (ordA == 193) { skip("Assumes ASCII", 4) }
+    unless ($ordA == 65) { skip("Assumes ASCII", 4) }
 
     my @notIsPunct = grep {/[[:punct:]]/ and not /\p{IsPunct}/}
                        map {chr} 0x20..0x7f;
End of Patch.