";" nicht als Kommentarzeichen ansehen.

diff --git a/SL/Inifile.pm b/SL/Inifile.pm
index f7fe27b3c60fd7afa3c0bdee0a6f616f97dc663b..aadec0af1fe6572ec7209e268a9ff79ba1a85244 100644 (file)
--- a/SL/Inifile.pm
+++ b/SL/Inifile.pm
@@ -52,12 +52,10 @@ sub new {
   open FH, "$file" or Form->error("$file : $!");
 
   while (<FH>) {
-    next if m/^(#|;|\s)/;
-
     chomp;
 
     # strip comments
-    s/(#|;).*//g;
+    s/#.*//g;
 
     # remove any trailing whitespace
     s/^\s*//;