sub size: regex incorrectly assumes whitespace

diff --git a/SCP.pm b/SCP.pm
index 6a25ccd..f0fd8ea 100644 (file)
--- a/SCP.pm
+++ b/SCP.pm
@@ -237,7 +237,7 @@ sub size {
     0;
   } else {
     chomp( my $size = <$reader> || 0 );
     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";
       $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>
 
 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.
 =head1 BUGS
 
 Still has no-OO cruft.