[Bug 859872] New: perl-5.16: perl -d:foo crashes if DB::DB is seen but not defined in Devel::foo

[bugzilla at redhat.com]

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

            Bug ID: 859872
        QA Contact: extras-qa at fedoraproject.org
          Severity: unspecified
               URL: https://rt.perl.org/rt3//Public/Bug/Display.html?id=11
                    4990
           Version: 18
          Priority: unspecified
                CC: cweyl at alumni.drew.edu, iarnell at gmail.com,
                    jplesnik at redhat.com, kasal at ucw.cz, lkundrak at v3.sk,
                    mmaslano at redhat.com,
                    perl-devel at lists.fedoraproject.org, ppisar at redhat.com,
                    psabata at redhat.com, rc040203 at freenet.de,
                    tcallawa at redhat.com
          Assignee: ppisar at redhat.com
           Summary: perl-5.16: perl -d:foo crashes if DB::DB is seen but
                    not defined in Devel::foo
        Regression: ---
      Story Points: ---
    Classification: Fedora
                OS: Unspecified
          Reporter: ppisar at redhat.com
              Type: Bug
     Documentation: ---
          Hardware: Unspecified
        Mount Type: ---
            Status: ASSIGNED
         Component: perl
           Product: Fedora

Create Devel/foo.pm in @INC path with content:

package Devel::foo;
*DB::DB = sub {} if 0;
1;

and run

# perl -d:foo -e '1'
Neoprávněný přístup do paměti (SIGSEGV)

This has been reported to upstream as RT #114990 and fixed in commit:

commit 432d4561c48cd74f3299eddc270a890908a4512e
Author: Jesse Luehrs <doy at tozt.net>
Date:   Mon Sep 24 00:29:06 2012 -0500

    don't crash with -d if DB::DB is seen but not defined [perl #114990]

Only perl-5.16 (F≥18) is affected.

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