X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=tb-list.pl;h=9b76473b57cce4fffb5f25e2324e982178bd623d;hb=81dcd63e7a64de60e08ede165198f0e2753e0b8b;hp=1e952704a152cdf08da42eb617e51d1a5aaabe26;hpb=48f60f1504b18632444fc115890205783de0fd49;p=topbloke.git

diff --git a/tb-list.pl b/tb-list.pl
index 1e95270..9b76473 100755
--- a/tb-list.pl
+++ b/tb-list.pl
@@ -150,7 +150,7 @@ sub sortsub () {
 	    foreach my $ix (qw(0 1)) {
 		my $ab = (qw(a b))[$ix];
 		my $ba = (qw(b a))[$ix];
-		my $r = (qw(-1 1))[$ix];
+		my $r = (qw(1 -1))[$ix];
 		$txt .= "    return $r if \$v${ab}->{Info}[3]{\$$ba};\n";
 	    }
         } else {