canon: show commod assignments

[ypp-sc-tools.main.git] / yarrg / canon

diff --git a/yarrg/canon b/yarrg/canon
index bb4d0ca44061396f445c0247776e9bef2aedaf79..1ba6b02f7a9d7c05667e04f9c23dd27c1e753d6e 100755 (executable)
--- 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;
 }