소스 검색

Another minor bugfix.

Morten Brix Pedersen 22 년 전
부모
커밋
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;
 
     study $saying;
-    $saying =~ s/[\s,!?.:;)(\"]+//o;
+    $saying =~ s/^[\s,!?.:;)(\"]+//o;
     while ($saying =~ s/([^\s,!?.:;)(\"]+)([\s,!?.:;)(\"]+)?//og) {
         $word = $1;
         $stats->{words}{$nick}++;