0;
} else {
chomp( my $size = <$reader> || 0 );
- if ( $size =~ /^\s+(\d+)/ ) {
+ if ( $size =~ /^\s*(\d+)/ ) {
$1 ? $1 : '0e0';
} else {
$self->{errstr} = "unparsable output from remote wc: $size";
Ivan Kohler <ivan-netscp_pod@420.am>
Anthony Deaver <bishop@projectmagnus.org>
+Thanks to Jon Gunnip <jon@soundbite.com> for fixing a bug with size().
+
=head1 BUGS
Still has no-OO cruft.