From 90a90727ffe970df0a86569d0dd93f878788d3df Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 15:46:09 +0000
Subject: [PATCH] canon: sort by stall not commod

---
 yarrg/canon | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yarrg/canon b/yarrg/canon
index da19de5..f1a8c9a 100755
--- 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];
     }
-- 
2.30.2