diff options
Diffstat (limited to 'measure_scripts/my-oldconfig.pl')
-rwxr-xr-x | measure_scripts/my-oldconfig.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/measure_scripts/my-oldconfig.pl b/measure_scripts/my-oldconfig.pl new file mode 100755 index 0000000..736bf57 --- /dev/null +++ b/measure_scripts/my-oldconfig.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl -w + +use Expect; +my $exp = Expect->spawn("make oldconfig") + or die "Cannot spawn make oldconfig: $!\n"; + +my $timeout = 10; +$exp->expect($timeout, + [ '^ *choice\[.*\]: ' => sub { $exp->send("\n"); exp_continue; } ], + [ '^([^ ]| *[^>0-9]).*\(NEW\) ' => sub { $exp->send("n\n"); exp_continue; } ], + [ "configuration written to .config" ], + ) || die "Timeout" |