summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
34663c2)
One second was too small.
my $exp = Expect->spawn("make oldconfig")
or die "Cannot spawn make oldconfig: $!\n";
my $exp = Expect->spawn("make oldconfig")
or die "Cannot spawn make oldconfig: $!\n";
$exp->expect($timeout,
[ '^ *choice\[.*\]: ' => sub { $exp->send("\n"); exp_continue; } ],
[ '^([^ ]| *[^>0-9]).*\(NEW\) ' => sub { $exp->send("n\n"); exp_continue; } ],
$exp->expect($timeout,
[ '^ *choice\[.*\]: ' => sub { $exp->send("\n"); exp_continue; } ],
[ '^([^ ]| *[^>0-9]).*\(NEW\) ' => sub { $exp->send("n\n"); exp_continue; } ],