Add regression test for [RT#63110]

This is based on a stand-alone test by Bram

diff --git a/t/op/eval.t b/t/op/eval.t
index 23725d5..4c01434 100755 (executable)
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..98\n";
+print "1..99\n";
 
 eval 'print "ok 1\n";';
 
@@ -539,10 +539,20 @@ END_EVAL_TEST
    my $ok = runperl(progfile => $tempfile);
    print "not " unless $ok;
    print "ok $test # eval { 1 } completly resets \$@\n";
-
-   $test++;
 }
 else {
   print "ok $test # skipped - eval { 1 } completly resets \$@";
 }
+$test++;
 
+# Test that "use feature" and other hint transmission in evals and s///ee
+# don't leak memory
+{
+    use feature qw(:5.10);
+    my $t;
+    my $s = "a";
+    $s =~ s/a/$t = \%^H;  qq( qq() );/ee;
+    print "not " if Internals::SvREFCNT(%$t) != 1;
+    print "ok $test - RT 63110\n";
+    $test++;
+}