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();