From 3458b594add39b3537c26d9e420d6d9494ff6a5c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 17:50:38 +0000
Subject: [PATCH] canon: support searching sells too

---
 yarrg/canon | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/yarrg/canon b/yarrg/canon
index 3d4bc67..78c5849 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -1,10 +1,14 @@
 #!/usr/bin/perl -w
 use strict qw(refs vars);
 our %s;
+my $bs= $ARGV[2];
 foreach my $ab (qw(0 1)) {
     open F, "zcat $ARGV[$ab] |" or die $!;
     while (<F>) {
-        my @l= split /\t/, $_;
+        chomp;
+        my @l= split /\t/, $_, -1;
+        @l == 6 or die "$#l";
+        if ($bs) { @l= ($l[0],$l[1],$l[4],$l[5]); }
         next unless length $l[2];
         $l[3]='1001' if $l[3] eq '>1000';
         my $k= sprintf "%-31s\t%-23s", $l[1], $l[0];
-- 
2.30.2