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
-Net::SCP v0.01
+Net::SCP v0.04
Copyright (c) 2000 Ivan Kohler.
Copyright (c) 2000 Silicon Interactive Software Design.
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 $
@ISA = qw(Exporter);
@EXPORT_OK = qw( scp iscp );
-$VERSION = '0.03';
+$VERSION = '0.04';
$scp = "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";
}
} else {
$flags .= 'qB';
+ @cmd = ( $scp, $flags, $src, $dest );
}
my($reader, $writer, $error ) =
( new IO::Handle, new IO::Handle, new IO::Handle );