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:
8547d9d
)
0.07
Net_SCP_0_07
author
ivan
<ivan>
Wed, 3 Mar 2004 08:44:55 +0000
(08:44 +0000)
committer
ivan
<ivan>
Wed, 3 Mar 2004 08:44:55 +0000
(08:44 +0000)
Changes
patch
|
blob
|
history
SCP.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
aaf517e
..
53c78f1
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,8
+1,9
@@
Revision history for Perl extension Net::SCP.
Revision history for Perl extension Net::SCP.
-0.07
unreleased
+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
- get and put methods use OO-style scp to avoid clobbering errstr,
thanks to paguerlais@airfrance.fr
+ - remove extraneous warn
0.06 Sat Apr 13 15:16:56 2002
- mkdir method added by Anthony Awtrey <tony@awtrey.com>
0.06 Sat Apr 13 15:16:56 2002
- mkdir method added by Anthony Awtrey <tony@awtrey.com>
diff --git
a/SCP.pm
b/SCP.pm
index
5054d55
..
6347cae
100644
(file)
--- a/
SCP.pm
+++ b/
SCP.pm
@@
-1,7
+1,7
@@
package Net::SCP;
use strict;
package Net::SCP;
use strict;
-use vars qw($VERSION @ISA @EXPORT_OK $scp);
+use vars qw($VERSION @ISA @EXPORT_OK $scp
$DEBUG
);
use Exporter;
use Carp;
use File::Basename;
use Exporter;
use Carp;
use File::Basename;
@@
-16,6
+16,8
@@
$VERSION = '0.07';
$scp = "scp";
$scp = "scp";
+$DEBUG = 0;
+
=head1 NAME
Net::SCP - Perl extension for secure copy protocol
=head1 NAME
Net::SCP - Perl extension for secure copy protocol
@@
-288,7
+290,7
@@
sub put {
$remote = $self->{'cwd'}. "/$remote" if $self->{'cwd'} && $remote !~ /^\//;
my $dest = $self->{'host'}. ":$remote";
$dest = $self->{'user'}. '@'. $dest if $self->{'user'};
$remote = $self->{'cwd'}. "/$remote" if $self->{'cwd'} && $remote !~ /^\//;
my $dest = $self->{'host'}. ":$remote";
$dest = $self->{'user'}. '@'. $dest if $self->{'user'};
- warn "scp $local $dest\n";
+ warn "scp $local $dest\n"
if $DEBUG
;
$self->scp($local, $dest);
}
$self->scp($local, $dest);
}