Backing out changes accidently checked in with bug 174942: the "die_with_dignity...

diff --git a/globals.pl b/globals.pl
index 67fed530651c83b0b78e8202e8888aabb3f8865f..c360c5652bd5bb91f80443770b25dce8e421cccc 100644 (file)
--- 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",