t/op/pat.t

From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093B34@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@33776

diff --git a/t/op/pat.t b/t/op/pat.t
index ec4222c..0c57c84 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -4617,7 +4617,7 @@ sub kt
 }
 
 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;