Let %^H be modifiable in eval-strings (bug #41531),

by adding a meaning for OPf_SPECIAL on OP_CONST.
Patch by Yves Orton.

p4raw-id: //depot/perl@30644

1 files changed, 14 insertions, 1 deletions

diff --git a/t/comp/hints.t b/t/comp/hints.t
index 32267dee90..55aeb7169e 100644
--- a/t/comp/hints.t
+++ b/t/comp/hints.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 
-BEGIN { print "1..15\n"; }
+BEGIN { print "1..17\n"; }
 BEGIN {
     print "not " if exists $^H{foo};
     print "ok 1 - \$^H{foo} doesn't exist initially\n";
@@ -93,3 +93,16 @@ print "not " if length $result;
 print "ok 15 - double-freeing hints hash\n";
 print "# got: $result\n" if length $result;
 
+{
+    BEGIN{$^H{x}=1};
+    for(1..2) {
+        eval q(
+            print $^H{x}==1 && !$^H{y} ? "ok\n" : "not ok\n";
+            $^H{y} = 1;
+        );
+        if ($@) {
+            (my $str = $@)=~s/^/# /gm;
+            print "not ok\n$str\n";
+        }
+    }
+}