Christoph Berg 21 лет назад
Родитель
Сommit
f5028a5a92
1 измененных файлов с 4 добавлено и 4 удалено
  1. 4 4
      modules/Pisg.pm

+ 4 - 4
modules/Pisg.pm

@@ -344,13 +344,13 @@ sub init_config
                 my $var = lc($1);
                 my $val = $3;
                 $var =~ s/ //; # Remove whitespace
-                if (!defined($self->{cfg}->{$var})) {
-                    print STDERR "Warning: $self->{cfg}->{configfile}, line $.: No such configuration option: '$var'\n";
+                if ($var eq "lang") {
+                    @{ $self->{cfg}->{langlist} } = split /\s*,\s*/, uc $val;
                     next;
                 }
 
-                if ($var eq "lang") {
-                    @{ $self->{cfg}->{langlist} } = split /\s*,\s*/, uc $val;
+                if (!defined($self->{cfg}->{$var})) {
+                    print STDERR "Warning: $self->{cfg}->{configfile}, line $.: No such configuration option: '$var'\n";
                     next;
                 }