[Expectperl-discuss] Argument "" isn't numeric fix

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

Hello again,

The following patch fix a Argument "" isn't numeric in eq message when
calling expect with ["-re", "match"], ie. no subroutine is
given. There should possibly be a check to make sure the code is
really code (ref eq "CODE") but I haven't done that.

Sincerely,

Adrian Phillips

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

*** Expect.pm~  Thu Nov 16 08:38:40 2000
--- Expect.pm   Thu Nov 16 11:46:13 2000
***************
*** 616,636 ****
              } else {
                $exp_cont = &{$pattern->[3]}($exp);
              }
-           }
-           if ($exp_cont == exp_continue
-               or $exp_cont eq 'exp_continue'
-               or $exp_cont eq 'exp_continue_timeout'
-               or $exp_cont == exp_continue_timeout) {
              if ($exp_cont == exp_continue
!                 or $exp_cont eq 'exp_continue') {
!               print STDERR ("Continuing expect, restarting
timeout...\r\n",
!                            ) if ($Expect::Exp_Internal or
$Expect::Debug);
!               $start_loop_time = time() # restart timeout count
!             } else {
!               print STDERR ("Continuing expect...\r\n",
!                            ) if ($Expect::Exp_Internal or
$Expect::Debug);
              }
-             next READLOOP;
            }
            last READLOOP;
          }
--- 616,636 ----
              } else {
                $exp_cont = &{$pattern->[3]}($exp);
              }
              if ($exp_cont == exp_continue
!                 or $exp_cont eq 'exp_continue'
!                 or $exp_cont eq 'exp_continue_timeout'
!                 or $exp_cont == exp_continue_timeout) {
!               if ($exp_cont == exp_continue
!                   or $exp_cont eq 'exp_continue') {
!                 print STDERR ("Continuing expect, restarting
timeout...\r\n",
!                              ) if ($Expect::Exp_Internal or
$Expect::Debug);
!                 $start_loop_time = time() # restart timeout count
!               } else {
!                 print STDERR ("Continuing expect...\r\n",
!                              ) if ($Expect::Exp_Internal or
$Expect::Debug);
!               }
!               next READLOOP;
              }
            }
            last READLOOP;
          }