From a1f00e68a023278e18214be59a11af36d7909c13 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 20 Dec 2015 16:52:49 -0800
Subject: [PATCH] confess() rather than die() here.

We  really want to know the context of what happened when it dies here.
---
 Supporters/lib/Supporters.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm
index 899a6aa..86d87cd 100644
--- a/Supporters/lib/Supporters.pm
+++ b/Supporters/lib/Supporters.pm
@@ -29,6 +29,7 @@ our $VERSION = '0.02';
 
 use Scalar::Util qw(looks_like_number blessed);
 use Mail::RFC822::Address;
+use Carp qw(confess);
 
 ######################################################################
 
@@ -70,7 +71,7 @@ sub new ($$) {
   $dbh->{RaiseError} = 0;
   $dbh->{HandleError} = sub {
     $self->{__NESTED_TRANSACTION_COUNTER__} = 0;
-    die $_[0];
+    confess $_[0];
   };
   $self->{__NESTED_TRANSACTION_COUNTER__} = 0;
   return $self;