From f63fe4fe7a13b8095b92021bbf87de722710e2ca Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 22 Feb 2001 07:43:17 +0000
Subject: bugfix

---
 SCP.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'SCP.pm')

diff --git a/SCP.pm b/SCP.pm
index 4bc0872..1aff1ae 100644
--- a/SCP.pm
+++ b/SCP.pm
@@ -12,7 +12,7 @@ use IPC::Open3;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw( scp iscp );
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 $scp = "scp";
 
@@ -72,9 +72,10 @@ sub scp {
   my($src, $dest, $interact) = @_;
   my $flags = '-p';
   $flags .= 'r' unless &_islocal($src) && ! -d $src;
-  my @cmd = ( $scp, $flags, $src, $dest );
+  my @cmd;
   if ( ( defined($interact) && $interact )
        || ( defined($self->{interact}) && $self->{interact} ) ) {
+    @cmd = ( $scp, $flags, $src, $dest );
     print join(' ', @cmd), "\n";
     unless ( &_yesno ) {
       $self->{errstr} = "User declined";
@@ -82,6 +83,7 @@ sub scp {
     }
   } else {
     $flags .= 'qB';
+    @cmd = ( $scp, $flags, $src, $dest );
   }
   my($reader, $writer, $error ) =
     ( new IO::Handle, new IO::Handle, new IO::Handle );
-- 
cgit v1.2.1