Dunedan/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Wiki Activity

Check for errors in directory names containing digits (e.g. "i18n")

Browse Source 
This was SVN commit r1023.
This commit is contained in:
Ykkrosh 2004-08-20 12:41:08 +00:00
parent f94ecbd6d7
commit 88ab133c1f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/errorlist.pl
View File

@ -169,6 +169,6 @@ sub cpp_files {
opendir my $d, $_[0] or die "Error opening directory '$_[0]' ($!)";
my @f = readdir $d;
my @files = map "$_[0]/$_", grep /\.(?:cpp|h)$/, @f;
push @files, cpp_files("$_[0]/$_") for grep { /^[a-z]+$/ and -d "$_[0]/$_" } @f;
push @files, cpp_files("$_[0]/$_") for grep { /^[a-z0-9]+$/ and -d "$_[0]/$_" } @f;
return @files;
}