Re: [Expectperl-discuss] Strange time out and hard close

[R. H. <rhu...@ih...>]

On Sun, 21 Jul 2002 12:12:53 -0700
ex...@ih... wrote:

> Ok the real problem seems to start with this error message.
> The time it occurs seems to be hidden by the fact that
> the hard_close has some timeouts.
> 
> Use of uninitialized value in concatenation (.) or string at /usr/btools/perl/lib/site_perl/5.6.1/Expect.pm line 1388
> 
> I still don't know what to make of this???
> The spawn seems to trigger this problem.


Ok, I know it's not healthy to talk to myself.... ;^)

The problem seems to be some difference in how regex is handled.

If I just do $obj->expect(undef, $item);
everything works fine.

If I use instead $obj->expect(undef, -re => "$item");
Things fail mysteriously (to me anyway).  I'm certain that my understanding
of this module is incomplete so it's possible that I'm missing the
distinction between these 2 idioms.


> 
> 
> 
> On Sat, 20 Jul 2002 17:51:51 -0700
> ex...@ih... wrote:
> 
> > The spawned program is an sh script.  The timeout comes only after
> > a few seconds at one point when the script is doing work.
> > Why is it timing out?  Is something strange happening to
> > $end_time?
> > 
> > Here's the bit of code from Expect.pm that gets me
> > to this point:
> > 
> > 1329:    if (($end_time <= time()) && ${*$self}{exp_Debug}) {
> > 1330:      print STDERR "Timed out waiting for an EOF from ${*$self}{exp_Pty_Handle}.\r\n";
> > 1331:    }
> > 
> > Can anyone provide any clues? 
> > 
> > Timed out waiting for an EOF from spawn id(7).
> > spawn id(7) closed.
> > Pid 17299 of spawn id(7) exited, Status: 0x01
> > Closing spawn id(7).
> >         Expect::hard_close('Expect=GLOB(0x39e25c)') called at /usr/perl/lib/site_perl/5.6.1/Expect.pm line 1577
> >         Expect::DESTROY('Expect=GLOB(0x39e25c)') called at /tmp/inst.pl line 0
> >         eval {...} called at /tmp/inst.pl line 0
> > 
> > 
> > -------------------------------------------------------
> > This sf.net email is sponsored by:ThinkGeek
> > Welcome to geek heaven.
> > http://thinkgeek.com/sf
> > _______________________________________________
> > Expectperl-discuss mailing list
> > Exp...@li...
> > https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> > 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>