diff options
author | H. Peter Anvin <hpa@zytor.com> | 2011-04-06 21:25:36 +0000 |
---|---|---|
committer | H. Peter Anvin <hpa@zytor.com> | 2011-04-06 21:25:36 +0000 |
commit | f8f2e096aab5f7f722d40ba9ec953eeed9d57145 (patch) | |
tree | 94de22cd9315085210700ab01c2f7cd39572655e | |
parent | 19cf0c34e503e01f669edb702f15ddff11fa47d4 (diff) | |
download | tip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.tar.gz tip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.tar.xz tip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.zip |
robotfmt: guard a few more bad URL characters
-rwxr-xr-x | robotfmt.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/robotfmt.pl b/robotfmt.pl index 16c42b3..a9971cf 100755 --- a/robotfmt.pl +++ b/robotfmt.pl @@ -116,7 +116,7 @@ while (defined($l = <LOG>)) { if (Email::Valid->address($e)) { $cclist{$e}++; } - } elsif ($l =~ /^LKML-Reference:\s*http:\/\/lkml.kernel.org\/r\/\<?([^\?\<\>\#]+)\>?$/i) { + } elsif ($l =~ /^LKML-Reference:\s*http:\/\/lkml.kernel.org\/r\/\<?([^\;\?\<\>\#]+)\>?$/i) { my $ref = uri_unescape($1); if ($ref ne '' && $ref !~ /[^!#\$\%&'()*+,-.\/0-9:;=?\@A-Z\[\]_`a-z{|}~]/) { $cclist{$lkml}++; |