Bladeren bron

Check for weird lines

Morten Brix Pedersen 25 jaren geleden
bovenliggende
commit
97944479d2
1 gewijzigde bestanden met toevoegingen van 3 en 0 verwijderingen
  1. 3 0
      modules/Pisg.pm

+ 3 - 0
modules/Pisg.pm

@@ -379,6 +379,9 @@ sub init_config
                 print STDERR "Warning: Malformed <set ..> line in $self->{cfg}->{configfile} on line $lineno\n";
                 print STDERR "Warning: Malformed <set ..> line in $self->{cfg}->{configfile} on line $lineno\n";
             } elsif ($line =~ /<channel/) {
             } elsif ($line =~ /<channel/) {
                 print STDERR "Warning: Malformed <channel ..> line in $self->{cfg}->{configfile} on line $lineno\n";
                 print STDERR "Warning: Malformed <channel ..> line in $self->{cfg}->{configfile} on line $lineno\n";
+            } elsif ($line =~ /\S/) {
+                $line =~ s/\n//;
+                print "Warning: Unrecognized line in $self->{cfg}->{configfile} on line $lineno: '$line'\n";
             }
             }
         }
         }