diff options
-rw-r--r-- | SCP.pm | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -237,7 +237,7 @@ sub size { 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"; @@ -278,6 +278,8 @@ sub binary { 1; } 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. |