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

Change 33776 by merijn@merijn-nb09 on 2008/05/01 18:32:18

	Subject: [PATCH] t/op/pat.t
	From: "Robin Barker" <Robin.Barker@npl.co.uk>
	Date: Thu, 1 May 2008 19:12:28 +0100
	Message-ID: <46A0F33545E63740BC7563DE59CA9C6D093B34@exchsvr2.npl.ad.local>

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.

• Change 33776: [PATCH] t/op/pat.t by H . Merijn Brand