@@ -12,6 +12,7 @@ sub crawlPrograms{ | |||
opendir( DIR, $dir ); | |||
my @files = readdir( DIR ); | |||
closedir( DIR ); | |||
@files = sort( @files ); | |||
foreach my $i ( @files ){ | |||
next if substr( $i, 0, 1 ) eq '.'; | |||
@@ -33,9 +34,11 @@ sub crawlFiles{ | |||
opendir( DIR, $dir ); | |||
my @files = readdir( DIR ); | |||
closedir( DIR ); | |||
@files = sort( @files ); | |||
foreach my $i ( @files ){ | |||
next if substr( $i, 0, 1 ) eq '.'; | |||
next if $i eq 'l10n'; | |||
if( -d $dir.'/'.$i ){ | |||
push( @found, crawlFiles( $dir.'/'.$i )); |