From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 15:46:09 +0000 (+0000)
Subject: canon: sort by stall not commod
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=90a90727ffe970df0a86569d0dd93f878788d3df;p=ypp-sc-tools.main.git

canon: sort by stall not commod
---

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];
     }