From 6e4888400ce107d4d569dbbe69aa2483ef33c55c Mon Sep 17 00:00:00 2001 From: Michael Brown Date: Sun, 17 Apr 2005 16:24:36 +0000 Subject: [PATCH] Avoid deleting .cvsignore --- src/util/mkconfig.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/util/mkconfig.pl b/src/util/mkconfig.pl index 7850661a..6a9c2f14 100755 --- a/src/util/mkconfig.pl +++ b/src/util/mkconfig.pl @@ -48,13 +48,13 @@ sub file_mtime { return $stat->mtime; } -# Read a directory listing (excluding the . and .. entries) +# Read all the .h files in a directory # sub read_dir { my $dir = shift; opendir my $dh, $dir or die "Could not open directory $dir: $!\n"; - my @entries = grep { ! /^(\.)+$/ } readdir $dh; + my @entries = grep { /\.h$/ } readdir $dh; closedir $dh; return @entries; }