list: topo order puts deps before clients

diff --git a/tb-list.pl b/tb-list.pl
index 1e952704a152cdf08da42eb617e51d1a5aaabe26..9b76473b57cce4fffb5f25e2324e982178bd623d 100755 (executable)
--- 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 {