diff options
| -rw-r--r-- | globals.pl | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/globals.pl b/globals.pl index 67fed5306..c360c5652 100644 --- a/globals.pl +++ b/globals.pl @@ -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", |