canon: initialise $changek0

diff --git a/yarrg/canon b/yarrg/canon
index f1a8c9af13639f271e909e18097faf3e59622a08..3d4bc676d7ffed0c8ff72927705277012c13426a 100755 (executable)
--- 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=