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

Fix incorrect verbosity.

Browse source 
There was a logic error in the test for this verbose message.
This commit is contained in:
Bradley M. Kuhn 2020-06-15 14:52:23 -07:00
parent 8349b9610b
commit e9d0a8b857
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -108,7 +108,7 @@ while (1) {
open(my $fifoFH, ">", $fifoFileName); open(my $fifoFH, ">", $fifoFileName);
print STDERR "and beginning write to it." if $VERBOSE > 1; print STDERR "and beginning write to it." if $VERBOSE > 1;
while (my $line = <$beancountFH>) { while (my $line = <$beancountFH>) {
print STDERR "." if (++$cnt % 100) and ($VERBOSE > 1); print STDERR "." unless ($cnt++ % 500) or ($VERBOSE <= 1);
print $fifoFH $line; print $fifoFH $line;
} }
close $beancountFH; close $beancountFH;