From 81dcd63e7a64de60e08ede165198f0e2753e0b8b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 23 Jan 2012 01:41:53 +0000
Subject: [PATCH] list: topo order puts deps before clients

---
 tb-list.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {
-- 
2.30.2