Re: [Expectperl-discuss] Re: Expect.pm v1.08 changes from v1.07?

[Ken I. <jki...@mo...>]

On Tue, Nov 21, 2000 at 01:09:12PM +0100, Roland Giersig wrote:
> Ken Irving wrote:
> > I saw a note on clpm mentioning Expect v1.08, so upgraded to it, but
> > I find that my scripts using v1.07 fail to work properly.  I'm in the
> > process of tracking down the difficulty(/ies), and could let you know
> > what I find, if that would be helpful.
> 
> Yes, that would be nice, so that I either can fix the incompatibilities
> or at least document them.  Could you send me some short example > script(s)
> that's failing now?  Maybe I can spot obvious problems.  I'm also trying 
> to build up a basic testsuite, and backward-compatibility is
> important.


#!/usr/bin/perl -w
# checkdialtone -- briefly listen to the dialtone

use strict;

# use lib '/tmp/Expect-1.08/';
use Expect;

my $cu = Expect->spawn( '/usr/bin/cu', '--port serial1')
    or die 'unable to open cu';

$cu->log_stdout(0); # avoid having "Connected" echo to STDOUT

unless ( $cu->expect(10, 'Connected')) {
    die 'failed connection in cu, ' . $cu->exp_error() . "\n";
    }

print $cu "atm1l0d\r";
sleep 0;
print $cu "atz\r";
__END__


Under v1.08 it's timing out in the expect() method:

    ken@moffit:~/src/perl/try $ testExpect.pl 
    failed connection in cu, 3:Child PID 10025 exited with status 256

-- 
Ken Irving <jki...@mo...>