projects
/
Net-SCP.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 );
@ISA = qw(Exporter);
@EXPORT_OK = qw( scp iscp );
-$VERSION = '0.0
7
';
+$VERSION = '0.0
8
';
$scp = "scp";
$scp = "scp";
@@
-231,8
+231,8
@@
sub mkdir {
'/bin/mkdir', '-p ', shell_quote($directory) );
waitpid $pid, 0;
if ( $? >> 8 ) {
'/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;
return 0;
}
1;