Fixed Perl syntax error.

[www.jankratochvil.net.git] / project / List.html.pl

diff --git a/project/List.html.pl b/project/List.html.pl
index 5054d71..fc149c9 100755 (executable)
--- a/project/List.html.pl
+++ b/project/List.html.pl
@@ -112,6 +112,7 @@ my($platform)=@_;
                                        my $order_by=$order_by;
                                        my $minus=($order_by=~s/^(-)//)[0];
                                        # FIXME: 'cmp' or '<=>'?
+                                       # Currently it complains on "name" not <=>able if two projects have the same 'priority'.
                                        my $r=($item{$a}{$order_by} <=> $item{$b}{$order_by});
                                        $r=-$r if $minus;
                                        return $r if $r;