From 9f24452cbd625036d1292c6a45d8b9d078030a5b Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Sun, 3 Nov 2024 15:53:50 -0800 Subject: [PATCH] Slightly change output from crash. --- Supporters/lib/Supporters.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm index 5e0ef5c..cace8d4 100644 --- a/Supporters/lib/Supporters.pm +++ b/Supporters/lib/Supporters.pm @@ -2006,7 +2006,7 @@ sub _readLedgerData($) { $type = 'Monthly'; } } - die "Unknown type $type for $entityId from $line" if $type !~ /^(Monthly|Annual)$/ and defined $self->{programTypeSearch}; + die "Unknown type \"$type\" for $entityId from $line" if $type !~ /^(Monthly|Annual)$/ and defined $self->{programTypeSearch}; $amount =~ s/,//; $amount = abs($amount); if (defined $amountTable{$entityId}{donations}{$date}) { $amountTable{$entityId}{donations}{$date} += $amount;