From: ian <ian>
Date: Mon, 19 Apr 2004 00:20:44 +0000 (+0000)
Subject: remove trailing 0s
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=1db6385fefd0bc6ec693d3a7e862d3770946b9a1;p=trains.git

remove trailing 0s
---

diff --git a/farnell/bulkres-select-gen.pl b/farnell/bulkres-select-gen.pl
index 1b6c19f..b81d636 100755
--- a/farnell/bulkres-select-gen.pl
+++ b/farnell/bulkres-select-gen.pl
@@ -19,7 +19,8 @@ sub addm ($$) {
 	    $_= $decade;
 	    s/x/ substr($value,0,1) /e;
 	    s/x/ substr($value,1,1) /e;
-	    printf "\tstd %s \t%d\n", $_, $qty or die $!;
+	    s/0$//;
+	    printf "\tstd %s \t%d=\n", $_, $qty or die $!;
 	}
     }
 }