diff options
| author | Tye McQueen <tye@metronet.com> | 2008-07-16 06:02:27 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-09-07 21:46:18 +0000 |
| commit | ea581a515b67cceacd5ceea839a0bff72973e0b1 (patch) | |
| tree | 2fd98507418a4f23c2f1b2b62182150ac67130b9 /lib/perl5db.pl | |
| parent | 6ae70e43e2b6c91e0b17a0d0230d31e20fe21a70 (diff) | |
| download | perl-ea581a515b67cceacd5ceea839a0bff72973e0b1.tar.gz | |
[perl #57016] debugger: o warn=0 die=0 ignored
From: "Tye McQueen" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-9960-1216238547-448.57016-75-0@perl.org>
p4raw-id: //depot/perl@34312
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 40d236116f..d5d3c08734 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -7735,6 +7735,8 @@ sub warnLevel { } elsif ($prevwarn) { $SIG{__WARN__} = $prevwarn; + } else { + undef $SIG{__WARN__}; } } ## end if (@_) $warnLevel; @@ -7776,6 +7778,9 @@ sub dieLevel { 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; |