Backing out changes accidently checked in with bug 174942: the "die_with_dignity" sub is supposed to remain commented out in CVS. Also adding comments with the sub to explain what it's used for.

This commit is contained in:
justdave%syndicomm.com 2003-08-06 01:46:14 +00:00
parent 61eaa5b203
commit 115a5e0ad4

View File

@ -75,7 +75,6 @@ use DBI;
use Date::Format; # For time2str().
use Date::Parse; # For str2time().
use Carp; # for confess
use RelationSet;
# Use standard Perl libraries for cross-platform file/directory manipulation.
@ -98,12 +97,17 @@ $::SIG{PIPE} = 'IGNORE';
$::defaultqueryname = "(Default query)"; # This string not exposed in UI
$::unconfirmedstate = "UNCONFIRMED";
sub die_with_dignity {
my ($err_msg) = @_;
print $err_msg;
confess($err_msg);
}
$::SIG{__DIE__} = \&die_with_dignity;
# The following subroutine is for debugging purposes only.
# Uncommenting this sub and the $::SIG{__DIE__} trap underneath it will
# cause any fatal errors to result in a call stack trace to help track
# down weird errors.
#sub die_with_dignity {
# use Carp; # for confess()
# my ($err_msg) = @_;
# print $err_msg;
# confess($err_msg);
#}
#$::SIG{__DIE__} = \&die_with_dignity;
@::default_column_list = ("bug_severity", "priority", "rep_platform",
"assigned_to", "bug_status", "resolution",