[Expectperl-discuss] Goes a little crazy if exec fails

[Adrian P. <a.p...@dn...>]

Heres another small patch to handle (possibly incorrectly) the
situation when exec fails, for example when the command does not
exist.

Sincerely,

Adrian Phillips

-- 
Your mouse has moved.
Windows NT must be restarted for the change to take effect.
Reboot now?  [OK]

*** Expect.pm~  Wed Nov 15 12:38:06 2000
--- Expect.pm   Thu Nov 16 08:38:40 2000
***************
*** 97,102 ****
--- 97,103 ----
      open(STDERR,">&". $tty->fileno()) || die "Couldn't redirect
STDERR, $!\r\n";
  
      exec (@_);
+     die ("Unable to exec @_");
      # End Child.
    }