From 733c898269ae8678ddcce705fafd957c1c530e9c Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Wed, 6 Aug 2003 08:46:14 +0000
Subject: 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.

---
 globals.pl | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'globals.pl')

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",
-- 
cgit v1.2.3-24-g4f1b