Browse Source

sort filenames on perl level during updatemakes.sh

Karel Miko 8 years ago
parent
commit
61ae75a823
1 changed files with 1 additions and 1 deletions
  1. 1 1
      parsenames.pl

+ 1 - 1
parsenames.pl

@@ -11,7 +11,7 @@ my @a = split ' ', $ARGV[1];
 my $b = $ARGV[0] . '=';
 my $len = length $b;
 print $b;
-foreach my $obj (@a) {
+foreach my $obj (sort @a) {
    $len = $len + length $obj;
    $obj =~ s/\*/\$/;
    if ($len > 100) {