From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 25 Jan 2011 15:19:44 +0000 (+0000)
Subject: canon: unbreak qtydiff
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=99bdf66320e0a970c00ad7811cd4e496cef517ab;p=ypp-sc-tools.git

canon: unbreak qtydiff
---

diff --git a/yarrg/canon b/yarrg/canon
index e756297..590ffa8 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -69,7 +69,7 @@ foreach my $k (sort keys %s) {
         next;
     }
     # base62-encoding all these numbers saves about 8%
-    my $qtydiff= $r[2] - ($r[0] || 0);
+    my $qtydiff= $r[3] - ($r[1] || 0);
     if (!defined($r[0]) || $r[0] != $r[2]) {
         $prep->();
         printf "\@%s",alencodenum($r[2]);