X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=SCP.pm;h=2b19b7e1d7a9f093a3bd089ce36f13945eaf3072;hb=ccd12a399c6ae2e175d78039583a4d5ac3a826a5;hp=6347cae692509336a7140e4e73c91bdfe694795d;hpb=0ad5fbd11b6296d8c92a8c82eaf415e81cb0140e;p=Net-SCP.git

diff --git a/SCP.pm b/SCP.pm
index 6347cae..2b19b7e 100644
--- a/SCP.pm
+++ b/SCP.pm
@@ -12,7 +12,7 @@ use IPC::Open3;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw( scp iscp );
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 $scp = "scp";
 
@@ -231,8 +231,8 @@ sub mkdir {
                       '/bin/mkdir', '-p ', shell_quote($directory) );
   waitpid $pid, 0;
   if ( $? >> 8 ) {
-    chomp(my $errstr = <$error>);
-    $self->{errstr} = $errstr || "mkdir exited with status ". $?>>8;
+    chomp(my $errstr = <$error> || '');
+    $self->{errstr} = $errstr || "mkdir exited with status ". ($?>>8);
     return 0;
   }
   1;