[perl #114990] Non assignment to *DB::DB causes segfault

On Fri Sep 21 05:35:18 2012, LeonT wrote:
> > cat Devel/foo.pm
> package Devel::foo;
> *DB::DB = sub {} if 0;
> 1;
> 
> > perl -d:foo -e0
> Segmentation fault (core dumped)
> 
> It seems pp_dbstate doesn't check it the &DB::DB is really defined,
> only that it has been seen.

This seems familiar.  Yup: bug #34892 -- a bug from years ago which
claims that declaring DB::sub without defining it can cause a segfault.  

If you know what caused this bug, maybe check all the other debugger
callbacks for similar problems now.

Ambrus



---
via perlbug:  queue: perl5 status: resolved
https://rt.perl.org:443/rt3/Ticket/Display.html?id=114990

• [perl #114990] Non assignment to *DB::DB causes segfault by Zsban Ambrus via RT
• [perl #114990] Non assignment to *DB::DB causes segfault by Zsban Ambrus via RT
• [perl #114990] Non assignment to *DB::DB causes segfault by Father Chrysostomos via RT
• Re: [perl #114990] Non assignment to *DB::DB causes segfault by Nicholas Clark
• [perl #114990] Non assignment to *DB::DB causes segfault by Jesse Luehrs via RT
• [perl #114990] Non assignment to *DB::DB causes segfault by Leon Timmermans