From: Michael Wiebusch <stratomaster@gmx.net>
Date: Thu, 11 Jul 2013 12:28:45 +0000 (+0200)
Subject: xml2ini should not remove leading zeros anymore
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=647c278ea94dfa8dc285d5dd4a5b368dd118a989;p=mvdsensorcontrol.git

xml2ini should not remove leading zeros anymore
---

diff --git a/tools/Common.pm b/tools/Common.pm
index df51997..4cb5036 100644
--- 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";