t/op/pat.t
authorRobin Barker <RMBarker@cpan.org>
Thu, 1 May 2008 19:12:28 +0000 (20:12 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 1 May 2008 18:32:18 +0000 (18:32 +0000)
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093B34@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@33776

t/op/pat.t

index ec4222c..0c57c84 100755 (executable)
@@ -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;