From 436e5e7da50c7925693c4d065b33b73b9c1df055 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 15:45:57 +0000
Subject: [PATCH] canon: report number of changes to k0

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

diff --git a/yarrg/canon b/yarrg/canon
index cb6b980..da19de5 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -14,6 +14,8 @@ foreach my $ab (qw(0 1)) {
     close F or die $!;
 }
 print "total rows: ", (scalar keys %s), "\n";
+my $lastk0='';
+my $changek0;
 foreach my $k (sort keys %s) {
     my @r= @{ $s{$k} };
     my $whynot=
@@ -23,7 +25,10 @@ foreach my $k (sort keys %s) {
         $r[1] != $r[3] ? (sprintf "qt %4d",($r[3]-$r[1])) :
         undef;
     next unless $whynot;
+    $k =~ m/\t/;
+    if ($` ne $lastk0) { $lastk0=$`; $changek0++; }
     print $whynot,"\t",$k;
     print "\t", defined($_) ? $_ : "-" foreach @r;
     print "\n";
 }
+print "changes of k0: $changek0\n";
-- 
2.30.2