[Expectperl-discuss] unExpected problems

[<mos...@po...>]

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.


This message was sent through MyMail http://www.mymail.com.au