--- trunk/lib/Sack/Node.pm 2009/10/03 21:43:34 93 +++ trunk/lib/Sack/Node.pm 2009/10/04 14:42:35 99 @@ -40,7 +40,8 @@ while ( 1 ) { my $data = Storable::fd_retrieve( $client ); - warn "[$port] <<<< ", dump( $data ); + warn "[$port] <<<<\n"; + warn "[$port] data = ", dump( $data ) if $self->{debug}; my $result; @@ -105,7 +106,7 @@ my $report = [ $self->{port}, $affected, $dt, scalar $self->{data} / $dt ]; warn sprintf "[%d] %d affected in %1.4fs %.2f/s\n", @$report; - warn "out ", dump( $out ); +# warn "# out ", dump( $out ); return $out; }