get and put methods use OO-style scp to avoid clobbering errstr,

  thanks to paguerlais@airfrance.fr

1 files changed, 3 insertions, 3 deletions

diff --git a/SCP.pm b/SCP.pm
index 0e41e3d..5054d55 100644
--- a/SCP.pm
+++ b/SCP.pm
@@ -12,7 +12,7 @@ use IPC::Open3;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw( scp iscp );
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 $scp = "scp";
 
@@ -203,7 +203,7 @@ sub get {
   $local ||= basename($remote);
   my $source = $self->{'host'}. ":$remote";
   $source = $self->{'user'}. '@'. $source if $self->{'user'};
-  scp($source,$local);
+  $self->scp($source,$local);
 }
 
 =item mkdir DIRECTORY
@@ -289,7 +289,7 @@ sub put {
   my $dest = $self->{'host'}. ":$remote";
   $dest = $self->{'user'}. '@'. $dest if $self->{'user'};
   warn "scp $local $dest\n";
-  scp($local, $dest);
+  $self->scp($local, $dest);
 }
 
 =item binary