Change 34340 by [EMAIL PROTECTED] on 2008/09/11 09:37:00
Integrate:
[ 34312]
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/maint-5.10/perl/lib/perl5db.pl#3 integrate
Differences ...
==== //depot/maint-5.10/perl/lib/perl5db.pl#3 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#2~33950~ 2008-05-30 08:37:39.000000000 -0700
+++ perl/lib/perl5db.pl 2008-09-11 02:37:00.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.
