fix broken parsing of /\x{ab}/

p4raw-id: //depot/perl@6057

1 files changed, 4 insertions, 1 deletions

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 79596abd59..16a15862c5 100755
--- 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
 }