| Subject: | Generalize password/passphrase match |
Distribution: Net-SCP-Expect-0.09
Perl Expect Version: Expect-1.15
Perl Verion: This is perl, version 5.005_03 built for sun4-solaris
We're running openSSH here and our passphrase prompts are of the form:
Enter passphrase for key '/home/USERNAME/.ssh/id_rsa':
The RE at line 178 of Expect.pm does not match this passphrase. The attached diff appears to take care of the situation.
Thanks for your fine work.
*** /usr/local/lib/perl5/site_perl/5.005/Net/SCP/Expect.pm Wed May 21 14:43:59 2003
--- /home/vogtle/src/Evaluate/Net-SCP-Expect-0.09/Expect.pm Mon May 12 13:06:48 2003
***************
*** 175,181 ****
}
}
! unless($scp->expect($timeout,-re=>'[Pp]assword.*:|[Pp]assphrase.*:')){
my $err = $scp->before() || $scp->match();
if($err){
if($handler){ $handler->($err) }
--- 175,181 ----
}
}
! unless($scp->expect($timeout,-re=>'[Pp]assword:|[Pp]assphrase:')){
my $err = $scp->before() || $scp->match();
if($err){
if($handler){ $handler->($err) }