From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 25 Jan 2011 15:21:24 +0000 (+0000)
Subject: canon: show commod assignments
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=4b4bc68b4719041a688b2d6ac95adad08e25ae3e;p=ypp-sc-tools.git

canon: show commod assignments
---

diff --git a/yarrg/canon b/yarrg/canon
index bb4d0ca..1ba6b02 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -40,7 +40,7 @@ sub findcommod ($) {
     my $me= $commodmap{$cname};  return $me if defined $me;
     my $val= $nextcommod++;
     $commodmap{$cname}= $val;
-#    printf "%s:%s\n", $res,$cname;
+    printf "%s:%s\n", alencodenum($val),$cname;
     return $val;
 }