| Subject: | PATCH: alternate keyfile |
Hi,
I was wonering if you were interested in this patch. It basically
allows
the user to specify an alternate keyfile. I have version 0.06. I'm
not
sure if I created the diff correctly, so let me know if I need to
resend
it.
Thanks,
--Alex
[foo@bar Net]# diff -c SCP.pm SCP.pm.new
*** SCP.pm 2002-03-15 21:00:10.000000000 -0500
--- SCP.pm.new 2003-11-04 17:13:20.000000000 -0500
***************
*** 70,76 ****
sub scp {
my $self = ref($_[0]) ? shift : {};
my($src, $dest, $interact) = @_;
! my $flags = '-p';
$flags .= 'r' unless &_islocal($src) && ! -d $src;
my @cmd;
if ( ( defined($interact) && $interact )
--- 70,78 ----
sub scp {
my $self = ref($_[0]) ? shift : {};
my($src, $dest, $interact) = @_;
! my $flags;
! $flags .= "-i $self->{keyfile} " if ($self->{keyfile});
! $flags .= '-p';
$flags .= 'r' unless &_islocal($src) && ! -d $src;
my @cmd;
if ( ( defined($interact) && $interact )