summaryrefslogtreecommitdiff
path: root/t/re/recompile.t
diff options
context:
space:
mode:
Diffstat (limited to 't/re/recompile.t')
-rw-r--r--t/re/recompile.t8
1 files changed, 7 insertions, 1 deletions
diff --git a/t/re/recompile.t b/t/re/recompile.t
index ad00df8320..63a70684be 100644
--- a/t/re/recompile.t
+++ b/t/re/recompile.t
@@ -22,7 +22,7 @@ BEGIN {
}
-plan tests => 36;
+plan tests => 38;
my $results = runperl(
switches => [ '-Dr' ],
@@ -187,3 +187,9 @@ my $y = '(?{1})';
BEGIN { $^H |= 0x00200000 } # lightweight "use re 'eval'"
"a" =~ qr/a$x$_/ for $y, $y, $y;
CODE
+
+comp_n(6, <<'CODE', 'embedded code qr');
+my $x = qr/a/i;
+my $y = qr/a/;
+"a" =~ qr/a$_/ for $x, $y, $x, $y;
+CODE