From f43e0000d140568d0668479617b8ca46273bb48a Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 6 Jan 2021 11:05:43 -0800
Subject: [PATCH] Add additional debug output.

---
 bean-query-goofy-daemon.plx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx
index f2a47e9..eb56b38 100755
--- a/bean-query-goofy-daemon.plx
+++ b/bean-query-goofy-daemon.plx
@@ -247,6 +247,7 @@ while (1) {
       # Occasionally, some of the SELECT statement is printed back to
       #  $rbcOut.  Avoid reproducing this in output by waiting for the line
       #  of ----'s.  Thus, this only works in text mode right now.
+      print "Line found \"$line\"\n" if $VERBOSE > 9;
       unless ($seenSeperator) {
         if ($line =~ /^\s*$/) {
           $seenSeperator = 1;