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

[perl #57016] debugger: o warn=0 die=0 ignored

Thread Previous
From:
Bram via RT
Date:
July 27, 2008 10:57
Subject:
[perl #57016] debugger: o warn=0 die=0 ignored
Message ID:
rt-3.6.HEAD-29762-1217097004-1695.57016-15-0@perl.org
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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About