Backing out changes accidently checked in with bug 174942: the…

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.

Backing out changes accidently checked in with bug 174942: the…
733c8982 · justdave%syndicomm.com · 25e79eb0 · 733c8982
Commit 733c8982 authored Aug 06, 2003 by justdave%syndicomm.com
Show whitespace changes
Inline Side-by-side

Showing with 11 additions and 7 deletions

globals.pl globals.pl +11 -7

No files found.
--- 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 {
+# The following subroutine is for debugging purposes only.
-    my ($err_msg) = @_;
+# Uncommenting this sub and the $::SIG{__DIE__} trap underneath it will
-    print $err_msg;
+# cause any fatal errors to result in a call stack trace to help track
-    confess($err_msg);
+# down weird errors.
-}
+#sub die_with_dignity {
-$::SIG{__DIE__} = \&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",