Test that (??{$pvlvregexp}) does not recompile the regexp

2685dc2d9a accidentally fixed this.  Oops! :-)

diff --git a/t/re/recompile.t b/t/re/recompile.t
index f026fae..2ae310d 100644 (file)
--- a/t/re/recompile.t
+++ b/t/re/recompile.t
@@ -22,7 +22,7 @@ BEGIN {
 }
 
 
-plan tests => 46;
+plan tests => 48;
 
 my $results = runperl(
                        switches => [ '-Dr' ],
@@ -210,3 +210,10 @@ CODE
 comp_n(2, <<'CODE', '(??{number})');
 "bb" =~ /(??{123})/;
 CODE
+
+comp_n(2, <<'CODE', '(??{$pvlv_regexp})');
+sub {
+   $_[0] = ${qr/abc/};
+  "bb" =~ /(??{$_[0]})/;
+}->($_[0]);
+CODE