Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

confess() rather than die() here.

Browse source 
We  really want to know the context of what happened when it dies here.
This commit is contained in:
Bradley M. Kuhn 2015-12-20 16:52:49 -08:00
parent 6de0eb64a2
commit a1f00e68a0
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Supporters/lib/Supporters.pm
View file

@ -29,6 +29,7 @@ our $VERSION = '0.02';
use Scalar::Util qw(looks_like_number blessed); use Scalar::Util qw(looks_like_number blessed);
use Mail::RFC822::Address; use Mail::RFC822::Address;
use Carp qw(confess);
###################################################################### ######################################################################
@ -70,7 +71,7 @@ sub new ($$) {
$dbh->{RaiseError} = 0; $dbh->{RaiseError} = 0;
$dbh->{HandleError} = sub { $dbh->{HandleError} = sub {
$self->{__NESTED_TRANSACTION_COUNTER__} = 0; $self->{__NESTED_TRANSACTION_COUNTER__} = 0;
die $_[0]; confess $_[0];
}; };
$self->{__NESTED_TRANSACTION_COUNTER__} = 0; $self->{__NESTED_TRANSACTION_COUNTER__} = 0;
return $self; return $self;