1 files changed, 16 insertions, 0 deletions
diff --git a/test/aux-fixed/9401.perl b/test/aux-fixed/9401.perl
new file mode 100644
index 000000000..9a5f368f8
--- /dev/null
+++ b/test/aux-fixed/9401.perl
@@ -0,0 +1,16 @@
+# Perl script to print all lines starting "-local" from -H files
+
+opendir(DIR, "spool/input") || die "failed to opendir spool/input\n";
+@spools = readdir(DIR);
+closedir(DIR);
+
+foreach $f (@spools)
+  {
+  next if $f !~ /-H$/; 
+  open(IN, "<spool/input/$f") || die "failed to open spool/input/$f\n";
+  print "$f\n";
+  while(<IN>) { print if /^-local/; }
+  close(IN);
+  }
+  
+####