1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/pat.t b/t/op/pat.t
index 103e6132b5..7f20185e93 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -369,6 +369,10 @@ print "# ans='@ans'\n# expect='$expect'\nnot " if "@ans" ne $expect;
 print "ok $test\n";
 $test++;
 
+print "not " unless "abc" =~ /^(??{"a"})b/;
+print "ok $test\n";
+$test++;
+
 my $matched;
 $matched = qr/\((?:(?>[^()]+)|(??{$matched}))*\)/;