NPO-Accounting/beancount-tools-in-Perl
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct typo on wrong variable used; remove errant print.

Browse source
This commit is contained in:
Bradley M. Kuhn 2020-08-10 07:46:29 -07:00
parent d3395dba78
commit 381dff4cb0
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bean-query-goofy-daemon.plx
View file

@ -79,7 +79,7 @@ sub StartRunningBeanQuery {
$currentFormat = $format; $currentFormat = $format;
my @cmd = ($BEANCOUNT_QUERY_CMD); my @cmd = ($BEANCOUNT_QUERY_CMD);
push(@cmd, '-f', $query{format}) if defined $query{format}; push(@cmd, '-f', $format) if defined $format;
push(@cmd, $LOAD_FILE); push(@cmd, $LOAD_FILE);
$runningBeanQuery = start \@cmd, '<pty<', \$rbcIn, '>pty>', \$rbcOut, '2>', \$rbcErr; $runningBeanQuery = start \@cmd, '<pty<', \$rbcIn, '>pty>', \$rbcOut, '2>', \$rbcErr;
pump $runningBeanQuery until $rbcOut =~ /^\s*beancount\s*\>\s*/m; pump $runningBeanQuery until $rbcOut =~ /^\s*beancount\s*\>\s*/m;
@ -151,7 +151,6 @@ while (1) {
$seenSeperator = 1; $seenSeperator = 1;
} elsif ($currentFormat eq 'text' and $line =~ /^\s*\-+\s*$/) { } elsif ($currentFormat eq 'text' and $line =~ /^\s*\-+\s*$/) {
$seenSeperator = 1; $seenSeperator = 1;
print "$prevLine\n";
} }
$prevLine = $line; $prevLine = $line;
next; next;