xml2ini should not remove leading zeros anymore

diff --git a/tools/Common.pm b/tools/Common.pm
index df51997607f19268d238d52dd8ea45470b42ca76..4cb50362f7b84354f37e3f27a0b0062f29e9172e 100644 (file)
--- a/tools/Common.pm
+++ b/tools/Common.pm
@@ -125,7 +125,8 @@ sub getFieldVal {
 sub padZeros{
   my $string = $_[0]; # pointer!
   my $paddingGroupSize = $_[1];
-  $$string =~ s/^0+//; # remove leading zeros
+  # bertram script does not like too short strings, so do not remove leading zeros
+  #$$string =~ s/^0+//; # remove leading zeros
   my $stringLength = length($$string);
   #print "strangeString:".$$string."\n";