sort filenames on perl level during updatemakes.sh
This commit is contained in:
parent
1e977e662f
commit
61ae75a823
@ -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) {
|
||||
|
Loading…
Reference in New Issue
Block a user