[Bug 859910] New: Hint-hash copying can leak

[Red Hat Bugzilla]

https://bugzilla.redhat.com/show_bug.cgi?id=859910

            Bug ID: 859910
        QA Contact: extras-qa(a)fedoraproject.org
          Severity: unspecified
               URL: https://rt.perl.org/rt3/Public/Bug/Display.html?id=107
                    000
           Version: 17
          Priority: unspecified
                CC: cweyl(a)alumni.drew.edu, iarnell(a)gmail.com,
                    jplesnik(a)redhat.com, kasal(a)ucw.cz, lkundrak(a)v3.sk,
                    mmaslano(a)redhat.com,
                    perl-devel(a)lists.fedoraproject.org, ppisar(a)redhat.com,
                    psabata(a)redhat.com, rc040203(a)freenet.de,
                    tcallawa(a)redhat.com
          Assignee: ppisar(a)redhat.com
           Summary: Hint-hash copying can leak
        Regression: ---
      Story Points: ---
    Classification: Fedora
                OS: Unspecified
          Reporter: ppisar(a)redhat.com
              Type: Bug
     Documentation: ---
          Hardware: Unspecified
        Mount Type: ---
            Status: ASSIGNED
         Component: perl
           Product: Fedora

Dying in tied %^H leaks memory:

use Config;
use Test::LeakTrace;

# [perl #107000]
package hhtie {
    sub TIEHASH { bless [] }
    sub STORE    { $_[0][0]{$_[1]} = $_[2] }
    sub FETCH    { die if $explosive; $_[0][0]{$_[1]} }
    sub FIRSTKEY { keys %{$_[0][0]}; each %{$_[0][0]} }
    sub NEXTKEY  { each %{$_[0][0]} }
}
leaktrace {
    eval q`
       BEGIN {
           $hhtie::explosive = 0;
           tie %^H, hhtie;
           $^H{foo} = bar;
           $hhtie::explosive = 1;
       }
       { 1; }
    `;
};

Fixed in upstream with commit:

commit 0db511c03fa45894d146905ba3408b3be3f5baa0
Author: Father Chrysostomos <sprout(a)cpan.org&gt;
Date:   Sun Sep 23 12:42:15 2012 -0700

    [perl #107000] Don’t leak if hh copying dies

Perl 5.14.2 as well as 5.16.1 (all Fedoras) are affected.

-- 
You are receiving this mail because:
You are on the CC list for the bug.