4 my $exp = Expect->spawn("make oldconfig")
5 or die "Cannot spawn make oldconfig: $!\n";
9 [ '^ *choice\[.*\]: ' => sub { $exp->send("\n"); exp_continue; } ],
10 [ '^([^ ]| *[^>0-9]).*\(NEW\) ' => sub { $exp->send("n\n"); exp_continue; } ],
11 [ "configuration written to .config" ],