Front page | perl.perl5.porters |
Postings from July 2008
On Wed Jul 16 13:02:26 2008, tye.mcqueen@gmail.com wrote:
> This is a bug report for perl from tyemq@cpan.org,
> generated with the help of perlbug 1.35 running under perl v5.8.7.
>
>
> -----------------------------------------------------------------
> [Please enter your report here]
>
> In the Perl debugger, the command "o warn=0 die=0" does nothing
> useful.
>
> This bug also applies to the latest 5.010 Perl I could conveniently
> find
> on http://search.cpan.org/.
>
> Here is a fix:
>
> --- 5.8.7/perl5db.pl 2005-09-27 10:45:51 -0700
> +++ tye/perl5db.pl 2008-07-16 12:52:18 -0700
> @@ -7703,6 +7703,8 @@
> }
> elsif ($prevwarn) {
> $SIG{__WARN__} = $prevwarn;
> + } else {
> + undef $SIG{__WARN__};
> }
> } ## end if (@_)
> $warnLevel;
> @@ -7744,6 +7746,9 @@
> elsif ($prevdie) {
> $SIG{__DIE__} = $prevdie;
> print $OUT "Default die handler restored.\n";
> + } else {
> + undef $SIG{__DIE__};
> + print $OUT "Die handler removed.\n";
> }
> } ## end if (@_)
> $dieLevel;
>
> [Please do not change anything below this line]
> -----------------------------------------------------------------
Thanks for the bug report/patch.
Can you also provide an example of where it doesn't behave as you
expected?
Kind regards,
Bram
Thread Previous