Change 34345 by [EMAIL PROTECTED] on 2008/09/11 15:13:21
Integrate:
[ 34340]
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.8/perl/lib/perl5db.pl#34 integrate
Differences ...
==== //depot/maint-5.8/perl/lib/perl5db.pl#34 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#33~32535~ 2007-11-28 11:38:15.000000000 -0800
+++ perl/lib/perl5db.pl 2008-09-11 08:13:21.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.
