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"