Procházet zdrojové kódy

Another minor bugfix.

Morten Brix Pedersen před 22 roky
rodič
revize
bbedb50bb5
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      modules/Pisg/Parser/Logfile.pm

+ 1 - 1
modules/Pisg/Parser/Logfile.pm

@@ -542,7 +542,7 @@ sub _parse_words
     my $word;
 
     study $saying;
-    $saying =~ s/[\s,!?.:;)(\"]+//o;
+    $saying =~ s/^[\s,!?.:;)(\"]+//o;
     while ($saying =~ s/([^\s,!?.:;)(\"]+)([\s,!?.:;)(\"]+)?//og) {
         $word = $1;
         $stats->{words}{$nick}++;