[perl.git] branch blead, updated. GitLive-blead-1224-g73496db

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/73496db2b46a179fe398109ad934812dd7b63a82?hp=b73790d3c9fb2026c569344bfe353223af9bdbea>

- Log -----------------------------------------------------------------
commit 73496db2b46a179fe398109ad934812dd7b63a82
Merge: b73790d... fa13de9...
Author: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date:   Sun May 31 15:11:40 2009 +0200

    Merge branch 'memleaktest' into blead

commit fa13de9435b2f7be1099b9202ae6e26021b00ba8
Author: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date:   Sun May 31 15:09:56 2009 +0200

    Add regression test for [RT#63110]
    
    This is based on a stand-alone test by Bram

M	t/op/eval.t
-----------------------------------------------------------------------

Summary of changes:
 t/op/eval.t |   16 +++++++++++++---
 1 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/t/op/eval.t b/t/op/eval.t
index 23725d5..4c01434 100755
--- 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++;
+}

--
Perl5 Master Repository

• [perl.git] branch blead, updated. GitLive-blead-1224-g73496db by Rafael Garcia-Suarez