snoozeagain has asked for the wisdom of the Perl Monks concerning the following question:

Hi. I'm hoping that one of the perl-wise out there might be able to point me to more information about the following bug, that seems to have gotten fixed between 5.12 and 5.14. Thanks! 
package a;

sub b {
   a::SIG;
}

1;

[download]
in perl-5.12.5 
perl -E '$SIG{INT} = sub { die "happy" }; do "a.pm"; unless (defined $SIG{INT}) { say "gone!" }'
gone!
in perl-5.14.4 
perl -E '$SIG{INT} = sub { die "happy" }; do "a.pm"; unless (defined $SIG{INT}) { say "gone!" }'

Replies are listed 'Best First'.
Re: SIG gone!
by Anonymous Monk on Apr 11, 2013 at 00:47 UTC
[reply]

Back to Seekers of Perl Wisdom