Change 34312 by [EMAIL PROTECTED] on 2008/09/07 21:46:18
Subject: [perl #57016] debugger: o warn=0 die=0 ignored
From: "Tye McQueen" (via RT) <[EMAIL PROTECTED]>
Date: Wed, 16 Jul 2008 13:02:27 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/perl5db.pl#135 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#135 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#134~33771~ 2008-04-30 04:56:36.000000000 -0700
+++ perl/lib/perl5db.pl 2008-09-07 14:46:18.000000000 -0700
@@ -7735,6 +7735,8 @@
}
elsif ($prevwarn) {
$SIG{__WARN__} = $prevwarn;
+ } else {
+ undef $SIG{__WARN__};
}
} ## end if (@_)
$warnLevel;
@@ -7776,6 +7778,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;
End of Patch.
