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

More verbosity around the FIFO creation.

Browse source
This commit is contained in:
Bradley M. Kuhn 2020-09-23 16:46:11 -07:00
parent c4e5664bb5
commit bd38cf6198
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -225,8 +225,9 @@ while (1) {
$query{fifoName} = $fifoFileName; $query{fifoName} = $fifoFileName;
my $getAllOutput = $query{getAllOutput}; my $getAllOutput = $query{getAllOutput};
(tied %query)->shunlock; (tied %query)->shunlock;
print STDERR "unlocked tied query..." if $VERBOSE > 2;
open(my $fifoFH, ">", $fifoFileName); open(my $fifoFH, ">", $fifoFileName);
print STDERR "and beginning write to it." if $VERBOSE > 2; print STDERR "and began write to fifo." if $VERBOSE > 2;
my($seenSeperator, $prevLine) = ( ((defined $getAllOutput) and $getAllOutput), ""); my($seenSeperator, $prevLine) = ( ((defined $getAllOutput) and $getAllOutput), "");
my $rbcOut = $runningBeanQuery->before(); my $rbcOut = $runningBeanQuery->before();
foreach my $line (split /\n/, $rbcOut) { foreach my $line (split /\n/, $rbcOut) {