[Expectperl-discuss] Patch for 1.09b

[Adrian P. <ad...@po...>]

Okay, 1.09b looks to be working for my simple use. A small patch to
correct a problem with $exp_cont being undef at the end of the loop.

Regards,

Adrian

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

*** Expect.pm~  Thu Nov 16 13:56:06 2000
--- Expect.pm   Thu Nov 16 13:58:41 2000
***************
*** 727,733 ****
        }
      }                         # end read loop
      $start_loop_time = time() # restart timeout count
!       if ($exp_cont eq exp_continue or $exp_cont eq 'exp_continue');
    }
    # End READLOOP
  
--- 727,733 ----
        }
      }                         # end read loop
      $start_loop_time = time() # restart timeout count
!       if ($exp_cont && ($exp_cont eq exp_continue or $exp_cont eq 'exp_continue'));
    }
    # End READLOOP