Explorar el Código

Another minor bugfix.

Morten Brix Pedersen hace 22 años
padre
commit
bbedb50bb5
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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}++;