Net::SCP::Expect appears to ignore Timeout value

blue_cowdawg has asked for the wisdom of the Perl Monks concerning the following question:

Check out this sniglet of code:

foreach my $host (@hosts) {
    my $scpe = Net::SCP::Expect->new(
        host     => $host,
        # user     => $user,
        # password => $password,
        compress => 1,
        auto_yes => 1,
        no_check => 1,
        debug=>1,
        timeout  => 120
    );

        $scpe->login($user,$password);
    printf "Copying files to %s:\n", $host;
    foreach my $file (@files) {
        printf "\t%s....", $file;
        my $remote=sprintf("%s\@%s:/tmp",$user,$host);
        printf "%s..",$remote;
        $scpe->scp( $file, $remote);
        printf "\r";
    }
}
[download]

I realize that debug is a bogus parameter but the code is failing with a timeout at the scp line after about 10 seconds. (or less)

Is there a way around this issue? Should I abandon Net::SCP::Expect? Any thoughts?

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Comment on Net::SCP::Expect appears to ignore Timeout value Select or Download Code

Replies are listed 'Best First'.
Re: Net::SCP::Expect appears to ignore Timeout value by kschwab (Vicar) on Mar 21, 2013 at 15:32 UTC
Try setting timeout_auto and timeout_err as well. Both are used within the $scpe->scp method.	[reply]
Re^2: Net::SCP::Expect appears to ignore Timeout value by blue_cowdawg (Monsignor) on Mar 21, 2013 at 19:25 UTC
symptoms unchanged. Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply]
Re^3: Net::SCP::Expect appears to ignore Timeout value by kschwab (Vicar) on Mar 21, 2013 at 19:44 UTC
Your code worked fine on my system. What's the error when it bails? Maybe you could try Net::OpenSSH and it's scp_put method?	[reply]
Re^4: Net::SCP::Expect appears to ignore Timeout value by blue_cowdawg (Monsignor) on Mar 25, 2013 at 15:35 UTC

Back to Seekers of Perl Wisdom