From bf00eeca74c757f5a4d0f2f6b9ad7177fdbb5a53 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Wed, 7 Dec 2016 17:07:50 -0800 Subject: [PATCH] Don't die on this. --- 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 da82c74..5a8f123 100644 --- a/Supporters/lib/Supporters.pm +++ b/Supporters/lib/Supporters.pm @@ -1624,7 +1624,7 @@ sub _readLedgerData($) { open(ALL, "-|", @cmd) or confess "unable to run command ledger command: @cmd: $!"; while (my $line = ) { next if $line =~ /^\s*$/; - die "Invalid line in @cmd output:\n $line" + warn "Invalid line in @cmd output:\n $line" unless $line =~ /^\s*([^\d]+)\s+([\d\-]+)\s+(\S*)\s+\$\s*(\-?\s*[\d,\.]+)\s*$/; my($type, $date, $entityId, $amount) = ($1, $2, $3, $4); next unless defined $entityId and $entityId !~ /^\s*$/;