summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--globals.pl18
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",