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