From: Tye McQueen <tye@metronet.com>
Date: Wed, 16 Jul 2008 13:02:27 +0000 (-0700)
Subject: [perl #57016] debugger: o warn=0 die=0 ignored
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea581a515b67cceacd5ceea839a0bff72973e0b1;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 40d2361..d5d3c08 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;