Add additional debug output.

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

View file

@ -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;