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

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