diff options
| author | justdave%syndicomm.com <> | 2003-08-06 10:46:14 +0200 |
|---|---|---|
| committer | justdave%syndicomm.com <> | 2003-08-06 10:46:14 +0200 |
| commit | 733c898269ae8678ddcce705fafd957c1c530e9c (patch) | |
| tree | bfb85d1e12a68dedead0816aba93186f797c3538 /globals.pl | |
| parent | 25e79eb046ed379b91f9c6930cc1006ee8a30bc4 (diff) | |
| download | bugzilla-733c898269ae8678ddcce705fafd957c1c530e9c.tar.gz bugzilla-733c898269ae8678ddcce705fafd957c1c530e9c.tar.xz | |
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.
Diffstat (limited to 'globals.pl')
| -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", |