From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 1 May 2008 19:12:28 +0000 (+0100)
Subject: t/op/pat.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa472d819afa513557c8ae076693d2c753998ed1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;