From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 17:50:20 +0000 (+0000)
Subject: canon: initialise $changek0
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=e837cbe62b82f06099492fd8769425cd38fd0d79;p=ypp-sc-tools.main.git

canon: initialise $changek0
---

diff --git a/yarrg/canon b/yarrg/canon
index f1a8c9a..3d4bc67 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -15,7 +15,7 @@ foreach my $ab (qw(0 1)) {
 }
 print "total rows: ", (scalar keys %s), "\n";
 my $lastk0='';
-my $changek0;
+my $changek0=0;
 foreach my $k (sort keys %s) {
     my @r= @{ $s{$k} };
     my $whynot=