[Expectperl-discuss] Expect problems

[<mic...@qm...>]

Greetings,
I have compiled in Expect  and dependent modules into perl,
but can't get even the simplest example script to run.
We are running perl on HP-UX10 on a HP-N1000 system.
When I debug it I get the following error:

spawn(/opt/perl5/lib/site_perl/5.005/Expect.pm:110):
110:      unless (defined ($pid)) {
  DB<1> Expect::spawn(/opt/perl5/lib/site_perl/5.005/Expect.pm:110):
110:      unless (defined ($pid)) {
######### Forked, but do not know how to change a TTY. #########
  Define $DB::fork_TTY
       - or a function DB::get_fork_TTY() which will set $DB::fork_TTY.
  The value of $DB::fork_TTY should be the name of TTY to use.
  On UNIX-like systems one can get the name of a TTY for the given window
  by typing tty, and disconnect the shell from TTY by sleep 1000000.

Then perl hangs on the following line:
$self->make_slave_controlling_terminal();

Does anyone out there have any ideas?
Kind regards,
Michael Osborne
Queensland Medical Laboratory
Information Technology Officer

These opinions are my own and may not represent those of my employers.