Morten Brix Pedersen 22 лет назад
Родитель
Сommit
bbedb50bb5
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      modules/Pisg/Parser/Logfile.pm

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

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