suppression de $self
parent
6d4cc2e0ca
commit
feedeac9f9
|
@ -58,7 +58,7 @@ sub addzone_sec {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _scp_get {
|
sub _scp_get {
|
||||||
my ($self, $user, $host, $port, $src, $dest) = @_;
|
my ($user, $host, $port, $src, $dest) = @_;
|
||||||
|
|
||||||
my $co = $user . '@' . $host . ':' . $port;
|
my $co = $user . '@' . $host . ':' . $port;
|
||||||
my $ssh = Net::OpenSSH->new($co);
|
my $ssh = Net::OpenSSH->new($co);
|
||||||
|
@ -66,7 +66,7 @@ sub _scp_get {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _scp_put {
|
sub _scp_put {
|
||||||
my ($self, $user, $host, $port, $src, $dest) = @_;
|
my ($user, $host, $port, $src, $dest) = @_;
|
||||||
|
|
||||||
my $co = $user . '@' . $host . ':' . $port;
|
my $co = $user . '@' . $host . ':' . $port;
|
||||||
my $ssh = Net::OpenSSH->new($co);
|
my $ssh = Net::OpenSSH->new($co);
|
||||||
|
|
Loading…
Reference in New Issue