my($src, $dest, $interact) = @_;
my $flags = '-p';
$flags .= 'r' unless &_islocal($src) && ! -d $src;
my($src, $dest, $interact) = @_;
my $flags = '-p';
$flags .= 'r' unless &_islocal($src) && ! -d $src;
print join(' ', @cmd), "\n";
unless ( &_yesno ) {
$self->{errstr} = "User declined";
print join(' ', @cmd), "\n";
unless ( &_yesno ) {
$self->{errstr} = "User declined";
}
my($reader, $writer, $error ) =
( new IO::Handle, new IO::Handle, new IO::Handle );
}
my($reader, $writer, $error ) =
( new IO::Handle, new IO::Handle, new IO::Handle );