mkdir patch from Ofer

[Net-SCP.git] / SCP.pm

diff --git a/SCP.pm b/SCP.pm
index 6347cae..2b19b7e 100644 (file)
--- 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;