diff options
Diffstat (limited to 'parse-wiki')
-rwxr-xr-x | parse-wiki | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -88,9 +88,10 @@ my $url; my $from; my @lines = split(/\n/, $body); while (defined($line = shift @lines)) { - if ($line =~ m/^The following page has been changed by (.*):/) { + if ($line =~ m/^The .* page has been changed by (.*):/) { $from = $1; - $url = shift @lines + $url = shift @lines; + $url =~ s/\?.*//; } elsif ($line =~ m/^The comment on the change is:/) { $message = shift @lines; last; |