Fix music charts

docs/Changelog

@@ -29,6 +29,7 @@ pisg (0.66) - ??
        again (reported by Triper in SF tracker #1167424 and Scelt).
      + foul1 should talk about words instead of lines; fixed in Danish and
        French.
+     + Fix music charts (reported by Daniel Jensen in SF #1195919).
    * Translations:
      + Updated Italian translation (thanks, Michele Venturi)
 

modules/Pisg/Parser/Logfile.pm

@@ -434,7 +434,7 @@ sub _parse_file
                     }
 
                     if ($saying =~ /$self->{chartsregexp}/i) {
-                        $self->_charts($1, $nick);
+                        $self->_charts($stats, $1, $nick);
                     }
 
                     if (my $s = $self->{users}->{sex}{$nick}) {
@@ -500,7 +500,7 @@ sub _parse_file
                 }
 
                 if ($saying =~ /$self->{chartsregexp}/i) {
-                    $self->_charts($1, $nick);
+                    $self->_charts($stats, $1, $nick);
                 }
 
                 $stats->{lengths}{$nick} += length($saying);
@@ -656,7 +656,7 @@ sub _parse_words
 
 sub _charts
 {
-    my ($stats, $Song, $nick) = @_;
+    my ($self, $stats, $Song, $nick) = @_;
     $Song =~ s/_/ /g;
     $Song =~ s/\d+ ?- ?//;
     $Song =~ s/\.mp3//g;