2
0
mirror of https://github.com/xcat2/xNBA.git synced 2024-12-14 15:21:32 +00:00

Avoid deleting .cvsignore

This commit is contained in:
Michael Brown 2005-04-17 16:24:36 +00:00
parent 1acea7d21f
commit 6e4888400c

View File

@ -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;
}