removing "Use Carp" and "sub die_with_dignity" that I was supposed to remove…

removing "Use Carp" and "sub die_with_dignity" that I was supposed to remove from the previous patch before checking it in.
parent 6470353d
...@@ -68,7 +68,7 @@ use DBI; ...@@ -68,7 +68,7 @@ use DBI;
use Date::Format; # For time2str(). use Date::Format; # For time2str().
use Date::Parse; # For str2time(). use Date::Parse; # For str2time().
use Carp; # for confess #use Carp; # for confess
use RelationSet; use RelationSet;
# $ENV{PATH} is not taint safe # $ENV{PATH} is not taint safe
...@@ -87,12 +87,12 @@ $::dbwritesallowed = 1; ...@@ -87,12 +87,12 @@ $::dbwritesallowed = 1;
# Joe Robins, 7/5/00 # Joe Robins, 7/5/00
$::superusergroupset = "9223372036854775807"; $::superusergroupset = "9223372036854775807";
sub die_with_dignity { #sub die_with_dignity {
my ($err_msg) = @_; # my ($err_msg) = @_;
print $err_msg; # print $err_msg;
confess($err_msg); # confess($err_msg);
} #}
$::SIG{__DIE__} = \&die_with_dignity; #$::SIG{__DIE__} = \&die_with_dignity;
sub ConnectToDatabase { sub ConnectToDatabase {
my ($useshadow) = (@_); my ($useshadow) = (@_);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment