From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 23 Jan 2012 01:41:53 +0000 (+0000)
Subject: list: topo order puts deps before clients
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=topbloke.git;a=commitdiff_plain;h=81dcd63e7a64de60e08ede165198f0e2753e0b8b

list: topo order puts deps before clients
---

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 {