Fix GrantSession rules sort
This commit is contained in:
parent
630343bdbe
commit
a24ed7bc41
|
@ -36,7 +36,7 @@ sub run {
|
||||||
sub sortByComment {
|
sub sortByComment {
|
||||||
my $A = ( $a =~ /^.*?##(.*)$/ )[0];
|
my $A = ( $a =~ /^.*?##(.*)$/ )[0];
|
||||||
my $B = ( $b =~ /^.*?##(.*)$/ )[0];
|
my $B = ( $b =~ /^.*?##(.*)$/ )[0];
|
||||||
return !$A ? 1 : !$B ? -1 : $A cmp $B;
|
return !( $A or $B ) ? $a cmp $b : !$A ? 1 : !$B ? -1 : $A cmp $B;
|
||||||
}
|
}
|
||||||
|
|
||||||
# Avoid display notification if AuthResult is not null
|
# Avoid display notification if AuthResult is not null
|
||||||
|
|
Loading…
Reference in New Issue
Block a user