Procházet zdrojové kódy

Check for weird lines

Morten Brix Pedersen před 24 roky
rodič
revize
97944479d2
1 změnil soubory, kde provedl 3 přidání a 0 odebrání
  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";
             } elsif ($line =~ /<channel/) {
                 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";
             }
         }