(parse_files): Choked on CVS, backup files, and more. Fix to work only on

*.t.  Closes #793707.
This commit is contained in:
Markus Armbruster 2003-10-04 14:56:07 +00:00
parent 1feab53eca
commit c91687c1b7

View file

@ -133,13 +133,10 @@ sub parse_files {
&error("Illegal filename (it is a type name)."); &error("Illegal filename (it is a type name).");
} }
open (LS, "ls $dir|"); open (LS, "cd $dir && ls *.t|");
while (<LS>) { while (<LS>) {
chop; chop;
next if /^GNUmakefile$/;
next if /^Makefile$/;
next if /^MakeSrcs$/;
$filename = $_; $filename = $_;
&parse_file; &parse_file;
} }