Changeset 17231 for gsdl/trunk/perllib

Timestamp:

2008-09-09T19:20:59+12:00 (16 years ago)

Author:

ak19

Message:

In subroutine quit_yaz(), while flushing yaz-client's outputstream, only print the residual contents of the outputstream if this is not pure whitespace

File:

• gsdl/trunk/perllib/downloaders/Z3950Download.pm (modified) (1 diff)

gsdl/trunk/perllib/downloaders/Z3950Download.pm

@@ -173 +173 @@
 
     # make sure nothing is being output by yaz
+    # flush the yaz-client process' outputstream, else we'll be stuck in an infinite
+    # loop waiting for the process to quit.
     my $output = $self->{'YAZOUT'};
     my $line;
-    while (defined ($line = <$output>)) {
-    print STDERR "***### $line";
+    while (defined ($line = <$output>)) { 
+    if($line !~ m/\w/s) { # print anything other than plain whitespace in case it is important
+        print STDERR "***### $line";
+    }
     }