[Expectperl-discuss] New Expect beta (was: Argument "" isn't numeric fix)

[Roland G. <Rol...@al...>]

Adrian Phillips wrote:
>             if ($exp_cont == exp_continue
>                 or $exp_cont eq 'exp_continue'
>                 or $exp_cont eq 'exp_continue_timeout'
>                 or $exp_cont == exp_continue_timeout) {
>               if ($exp_cont == exp_continue
>                   or $exp_cont eq 'exp_continue') {
>                 print STDERR ("Continuing expect, restarting timeout...\r\n",
>                              ) if ($Expect::Exp_Internal or $Expect::Debug);
>                 $start_loop_time = time() # restart timeout count
>               } else {
>                 print STDERR ("Continuing expect...\r\n",
>                              ) if ($Expect::Exp_Internal or $Expect::Debug);
>               }
>               next READLOOP;
>             }
> 
> The error message is due to $exp_cont being set to "", the first test
> is ==, which will always give an error when using -w (if I recall
> correctly).
> 
> Anyway, thats my take on the problem. Any corrections gratefully
> accepted.

Perfect analysis.  That if() should start with 

  if($exp_cont and (...))

OK, I just took the time to patch it all together.  
Find attached a new version of Expect.pm for all you 
eager developers out there.

Please try it out.  If no other bugs come up, I'll then
package it up and release it to the masses (next week).

Cheers!

Roland
--
RGi...@cp...