fix broken parsing of /\x{ab}/

[p5sagit/p5-mst-13.2.git] / t / pragma / utf8.t

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 79596ab..16a1586 100755 (executable)
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..60\n";
+print "1..61\n";
 
 my $test = 1;
 
@@ -265,4 +265,7 @@ sub ok {
        $test++;                                # 60
 
     }
+
+    ok "\x{ab}" =~ /^\x{ab}$/, 1;
+    $test++;                                   # 61
 }