From 647c278ea94dfa8dc285d5dd4a5b368dd118a989 Mon Sep 17 00:00:00 2001
From: Michael Wiebusch <stratomaster@gmx.net>
Date: Thu, 11 Jul 2013 14:28:45 +0200
Subject: [PATCH] xml2ini should not remove leading zeros anymore

---
 tools/Common.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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";
   
-- 
2.43.0