[Expectperl-discuss] eof becomes 1

[Kai H. <kai...@al...>]

=20
If I've sent this multiple times I apologize, but I keep getting a
response from postmaster that it was rejected....

Greetings Oh Expectators!
=20
I've tracked down my unexpected end to the correct stanza and immediate
cause. Now I need some help getting around it.
=20
I have a fairly lengthy expect statement with this stanza at the end:
   [ eof,
      sub {
         print "\n\nExpect EOF: Unexpected end of $spawn_method
session.\n\n";
         sleep 2;
      }
   ],
 </quote>
=20
This stanza gets translated to this phrase when the program runs
(exp_internal(1)):
  #9: -re `1'
</quote>
=20
The literal '1' matches any random 1 that comes through, making the
program think it has found an EOF. How do I get around this?
=20
I suppose that I could not test for EOF, but I would like to know if the
spawned program died out from under me. How are other people handling
this? Or is my syntax wrong?
=20
Expect 1.15 under perl 5.8.0 on linux.
=20
Thanks,
Kai