projects
/
Net-SCP.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0ad5fbd
)
mkdir patch from Ofer
author
ivan
<ivan>
Tue, 12 Oct 2004 09:51:37 +0000
(09:51 +0000)
committer
ivan
<ivan>
Tue, 12 Oct 2004 09:51:37 +0000
(09:51 +0000)
Changes
patch
|
blob
|
history
SCP.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
53c78f1
..
956d538
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,9
@@
Revision history for Perl extension Net::SCP.
Revision history for Perl extension Net::SCP.
+0.08 unreleased
+ - Fix mkdir error message and extraneous warning, patch from Ofer Nave
+ <onave@bizrate.com>, thanks!
+
0.07 Wed Mar 3 00:38:25 2004
- get and put methods use OO-style scp to avoid clobbering errstr,
thanks to paguerlais@airfrance.fr
0.07 Wed Mar 3 00:38:25 2004
- get and put methods use OO-style scp to avoid clobbering errstr,
thanks to paguerlais@airfrance.fr
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;