Re: [Expectperl-discuss] does timeout => sub{} pass filehandle?

[<RGi...@a1...>]

> Solaris 2.6 Expect 1.12
> In all the examples, when a timeout is encountered you simply die();
> In my case, a device can get into a state where what is returned is
> unpredictable. There is a specific sequence that I can then send 
> to log out the previous action and get back to a known state. 
> However, the code below doesn't seem to work correctly
>  $exp->expect($timeout,
>        ['OVL111', sub { my $fh = shift; $fh->send("login\n"); }],
>        ['\.', sub { my $fh = shift; $fh-
> >send("****\nlogo\n");exp_continue;}],

Are you matching for a dot here?

>        [timeout => sub { my $fh = shift;
> $fh->send("****\nlogo\n");exp_continue; }]
>        );

exp_continue for timeout only started working a few beta versions ago. 

> Using a regex of '.*' would be another way - but risky - 
> especially until I can get "raw" working. Any suggestions?

I'm attaching the latest version, much improved and almost ready for 
release (I still need a few test results for IO-Tty, especially on 
HPUX, OSF and SCO).  Please try it (be sure to browse the docs for all 
the new features) and tell me if it solves your problems.

Thanks!

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