Fix GrantSession rules sort

This commit is contained in:
Yadd 2021-05-04 15:50:38 +02:00
parent 630343bdbe
commit a24ed7bc41

View File

@ -36,7 +36,7 @@ sub run {
sub sortByComment {
my $A = ( $a =~ /^.*?##(.*)$/ )[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