suppression de $self

master
Philippe Pittoli 2014-05-08 14:18:26 +02:00
parent 6d4cc2e0ca
commit feedeac9f9
1 changed files with 2 additions and 2 deletions

View File

@ -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);