This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/pat.t
[perl5.git] / 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;