Просмотр исходного кода

Improve parsing of config file a bit more; remember to chomp \n's, and
ignore whitespace in settings

Morten Brix Pedersen 24 лет назад
Родитель
Сommit
8e7d241e0a
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      modules/Pisg.pm

+ 3 - 1
modules/Pisg.pm

@@ -243,6 +243,7 @@ sub init_config
         while (my $line = <CONFIG>)
         {
             next if ($line =~ /^#/);
+            chomp $line;
 
             if ($line =~ /<user.*>/) {
                 my $nick;
@@ -307,8 +308,9 @@ sub init_config
 
                 while ($settings =~ s/[ \t]([^=]+)=["']([^"']*)["']//) {
                     my $var = lc($1);
+                    $var =~ s/ //; # Remove whitespace
                     if (!defined($self->{cfg}->{$var})) {
-                        print STDERR "Warning: $self->{cfg}->{configfile}, line $.: No such configuration option: $1\n";
+                        print STDERR "Warning: $self->{cfg}->{configfile}, line $.: No such configuration option: '$var'\n";
                         next;
                     }
                     unless (($self->{cfg}->{$var} eq $2) || $self->{override_cfg}->{$var}) {