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

Add additional debug output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2021-01-06 11:05:43 -08:00
parent 20ac3c5ef7
commit f43e0000d1
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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