Sorting files in l10n.pl to get the same order always

This commit is contained in:
Jakob Sack 2011-08-26 09:21:55 +02:00
parent f5c2c13566
commit 5301248ea2
1 changed files with 3 additions and 0 deletions

View File

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