Add deterministic order (#2188)

This commit is contained in:
Xavier Guimard 2020-05-06 13:08:58 +02:00
parent 1bb176fb5a
commit b7c3221423

View File

@ -339,7 +339,7 @@ sub locationRulesInit {
my $bv = $b->[1];
return 1 if $av =~ /^\*/ and $bv !~ /^\*/;
return -1 if $bv =~ /^\*/ and $av !~ /^\*/;
return length($bv) <=> length($av);
return length($bv) <=> length($av) || $bv cmp $av;
} @{ $class->tsv->{vhostReg} } if @{ $class->tsv->{vhostReg} };
push @{ $class->tsv->{vhostReg} }, @lastReg if @lastReg;
return 1;