From e9d0a8b85728d84634929a48cdb835f97ac88db9 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Mon, 15 Jun 2020 14:52:23 -0700
Subject: [PATCH] Fix incorrect verbosity.

There was a logic error in the test for this verbose message.
---
 bean-query-goofy-daemon.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx
index 8253451..3484d1a 100755
--- a/bean-query-goofy-daemon.plx
+++ b/bean-query-goofy-daemon.plx
@@ -108,7 +108,7 @@ while (1) {
     open(my $fifoFH, ">", $fifoFileName);
     print STDERR "and beginning write to it." if $VERBOSE > 1;
     while (my $line = <$beancountFH>) {
-      print STDERR "." if (++$cnt % 100) and ($VERBOSE > 1);
+      print STDERR "." unless ($cnt++ % 500) or ($VERBOSE <= 1);
       print $fifoFH $line;
     }
     close $beancountFH;