develooper Front page | perl.perl5.porters | Postings from July 2016

Re: [perl #128257] Segfault in Perl_gv_setref: 'subU::0{}undef*U::;*U::0=sub{}'

Thread Previous
Dave Mitchell
July 7, 2016 16:08
Re: [perl #128257] Segfault in Perl_gv_setref: 'subU::0{}undef*U::;*U::0=sub{}'
Message ID:
On Thu, May 26, 2016 at 06:29:06PM -0700, Dan Collins wrote:
> dcollins@nightshade64:~/perldebug$ ./perl -Ilib -W -e 'sub U::0{}undef*U::;*U::0=sub{}'
> Segmentation fault

Fixed with the following commit:

    commit fc0fe26a7d286480c1bb25f57e469ece575bb68d
    Author:     David Mitchell <>
    AuthorDate: Thu Jul 7 17:03:29 2016 +0100
    Commit:     David Mitchell <>
    CommitDate: Thu Jul 7 17:06:58 2016 +0100

    SEGV in "Subroutine redefined" warning
    RT #128257
    The following SEGVed:
        sub P::f{}
        undef *P::;
        *P::f =sub{};
    due to the code which generates the "Subroutine STASH::NAME redefined"
    warning assuming that the GV always has a stash. Make it so that if it
    hasn't, the message changes to  "Subroutine NAME redefined" rather than
    just crashing.

No man treats a motor car as foolishly as he treats another human being.
When the car will not go, he does not attribute its annoying behaviour to
sin, he does not say, You are a wicked motorcar, and I shall not give you
any more petrol until you go. He attempts to find out what is wrong and
set it right.
    -- Bertrand Russell,
       Has Religion Made Useful Contributions to Civilization?

Thread Previous Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About