TeaSpeak/tomcrypt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sort filenames on perl level during updatemakes.sh

Browse Source
This commit is contained in:
Karel Miko 2017-03-01 22:07:28 +01:00
parent 1e977e662f
commit 61ae75a823
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parsenames.pl
View File

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