Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't die on this.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-12-07 17:07:50 -08:00
parent 9733aff0f3
commit bf00eeca74
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Supporters/lib/Supporters.pm
View file

@ -1624,7 +1624,7 @@ sub _readLedgerData($) {
open(ALL, "-|", @cmd) or confess "unable to run command ledger command: @cmd: $!";
while (my $line = <ALL>) {
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*$/;