From 62d7ae0dbde027f020180221746ca678c0cee992 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 6 Dec 2015 19:07:34 -0800
Subject: [PATCH] sub is needed to make this work, I think.

---
 Supporters/t/Supporters.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Supporters/t/Supporters.t b/Supporters/t/Supporters.t
index 16f018f..0f30a3a 100644
--- a/Supporters/t/Supporters.t
+++ b/Supporters/t/Supporters.t
@@ -33,7 +33,8 @@ Test adding a supporter to the database.
 
 =cut
 
-dies_ok { $sp->addSupporter({}) } "ledger_entity_id required";
+dies_ok(sub { $sp->addSupporter({}) }, "ledger_entity_id required");
+
 
 $dbh->disconnect();