From ccd12a399c6ae2e175d78039583a4d5ac3a826a5 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 12 Oct 2004 09:51:37 +0000
Subject: mkdir patch from Ofer

---
 SCP.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'SCP.pm')

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;
-- 
cgit v1.2.1