Jelajahi Sumber

Another minor bugfix.

Morten Brix Pedersen 22 tahun lalu
induk
melakukan
bbedb50bb5
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  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}++;