Sorting files in l10n.pl to get the same order always
This commit is contained in:
parent
f5c2c13566
commit
5301248ea2
|
@ -12,6 +12,7 @@ sub crawlPrograms{
|
||||||
opendir( DIR, $dir );
|
opendir( DIR, $dir );
|
||||||
my @files = readdir( DIR );
|
my @files = readdir( DIR );
|
||||||
closedir( DIR );
|
closedir( DIR );
|
||||||
|
@files = sort( @files );
|
||||||
|
|
||||||
foreach my $i ( @files ){
|
foreach my $i ( @files ){
|
||||||
next if substr( $i, 0, 1 ) eq '.';
|
next if substr( $i, 0, 1 ) eq '.';
|
||||||
|
@ -33,9 +34,11 @@ sub crawlFiles{
|
||||||
opendir( DIR, $dir );
|
opendir( DIR, $dir );
|
||||||
my @files = readdir( DIR );
|
my @files = readdir( DIR );
|
||||||
closedir( DIR );
|
closedir( DIR );
|
||||||
|
@files = sort( @files );
|
||||||
|
|
||||||
foreach my $i ( @files ){
|
foreach my $i ( @files ){
|
||||||
next if substr( $i, 0, 1 ) eq '.';
|
next if substr( $i, 0, 1 ) eq '.';
|
||||||
|
next if $i eq 'l10n';
|
||||||
|
|
||||||
if( -d $dir.'/'.$i ){
|
if( -d $dir.'/'.$i ){
|
||||||
push( @found, crawlFiles( $dir.'/'.$i ));
|
push( @found, crawlFiles( $dir.'/'.$i ));
|
||||||
|
|
Loading…
Reference in New Issue