summaryrefslogtreecommitdiff
path: root/SCP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'SCP.pm')
-rw-r--r--SCP.pm6
1 files changed, 3 insertions, 3 deletions
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;