This will be important in a later to commit so that we process the
leader of a group of tables before any of its followers. Currently,
there hasn't been a problem with the sort order, but future changes make
it important.
return 1 if $a->complement != 0;
return -1 if $b->complement != 0;
+ # Similarly, return a subservient table after
+ # a leader
+ return 1 if $a->leader != $a;
+ return -1 if $b->leader != $b;
+
my $cmp = length $ext_a <=> length $ext_b;
# Return result if lengths not equal