diff options
Diffstat (limited to 'SCP.pm')
-rw-r--r-- | SCP.pm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |