X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/db53dc8ab328b82c7af17896487674ad98f2af6b..ab96e204a2beec2302b1850df50f45a6e67a13c4:/SL/Inifile.pm diff --git a/SL/Inifile.pm b/SL/Inifile.pm index f7fe27b3c..aadec0af1 100644 --- a/SL/Inifile.pm +++ b/SL/Inifile.pm @@ -52,12 +52,10 @@ sub new { open FH, "$file" or Form->error("$file : $!"); while () { - next if m/^(#|;|\s)/; - chomp; # strip comments - s/(#|;).*//g; + s/#.*//g; # remove any trailing whitespace s/^\s*//;