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

14 years ago · 5301248ea2
parent f5c2c13566
commit 5301248ea2
1 changed files with 3 additions and 0 deletions
--- a/l10n/l10n.pl
+++ b/l10n/l10n.pl
@ -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 ));