23        callback => { data =>
 24             sub {
 25                 my ($io, $host) = @_;
 26                 chomp( my $line = <$io> );
 27                 return 0 unless $line;      ####### MOVE THIS LINE UP AND TEST FOR DEFINEDNESS ###################
 28                 $Qout->enqueue( $line );    ## send work to listener (is not sending to walker ?)
 29                 return !0;
 30             }
 31         },


##</code><code>##

 23        callback => { data =>
 24             sub {
 25                 my ($io, $host) = @_;
 26                 return 0 unless defined $line;  ################ MOVED LINE #####################
 27                 chomp( my $line = <$io> );
 28                 $Qout->enqueue( $line );    ## send work to walker
 29                 return !0;
 30             }
 31         },