canon: sort by stall not commod

diff --git a/yarrg/canon b/yarrg/canon
index da19de5813c46f611480c0c9d120e5a6c3196346..f1a8c9af13639f271e909e18097faf3e59622a08 100755 (executable)
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -7,7 +7,7 @@ foreach my $ab (qw(0 1)) {
         my @l= split /\t/, $_;
         next unless length $l[2];
         $l[3]='1001' if $l[3] eq '>1000';
-        my $k= sprintf "%-23s\t%-31s", $l[0], $l[1];
+        my $k= sprintf "%-31s\t%-23s", $l[1], $l[0];
         $s{$k}[$ab*2]= $l[2];
         $s{$k}[$ab*2+1]= $l[3];
     }