summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2011-04-06 21:25:36 +0000
committerH. Peter Anvin <hpa@zytor.com>2011-04-06 21:25:36 +0000
commitf8f2e096aab5f7f722d40ba9ec953eeed9d57145 (patch)
tree94de22cd9315085210700ab01c2f7cd39572655e
parent19cf0c34e503e01f669edb702f15ddff11fa47d4 (diff)
downloadtip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.tar.gz
tip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.tar.xz
tip-bot-f8f2e096aab5f7f722d40ba9ec953eeed9d57145.zip
robotfmt: guard a few more bad URL characters
-rwxr-xr-xrobotfmt.pl2
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}++;