bugfix

diff --git a/Changes b/Changes
index 428652e..ca14ba4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Net::SCP.
 
+0.04  Wed Feb 07 10:26:11 2000
+        - fixed silly scp problem, thanks to Dan McCormick <danmcc@metro.net>
+
 0.03  Mon Feb 05 07:02:34 2000
        - fixed documentation errors and iscp/issh problems from merge
 

diff --git a/README b/README
index b121ceb..742b63e 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Net::SCP v0.01
+Net::SCP v0.04
 
 Copyright (c) 2000 Ivan Kohler.
 Copyright (c) 2000 Silicon Interactive Software Design.
@@ -30,5 +30,5 @@ A mailing list for users and developers is available.  Send a blank message to
 
 Ivan Kohler <ivan-netscp_readme@420.am>
 
-$Id: README,v 1.2 2000-11-25 23:48:46 ivan Exp $
+$Id: README,v 1.3 2001-02-22 07:43:17 ivan Exp $
 

diff --git a/SCP.pm b/SCP.pm
index 4bc0872..1aff1ae 100644 (file)
--- 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 );