Bug 752751: Perl modules that start with a protocol (eg HTTP::Header) are not escaped correctly in SAFE_URL_REGEXP

r/a=LpSolit


git-svn-id: svn://10.0.0.236/trunk@263830 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mkanat%bugzilla.org
2012-05-17 13:30:47 +00:00
parent 9fb932a454
commit 2f2d3de62a
2 changed files with 2 additions and 2 deletions

View File

@@ -1 +1 @@
8228
8229

View File

@@ -43,7 +43,7 @@ use constant FORMAT_2_SIZE => [19,55];
# Pseudo-constant.
sub SAFE_URL_REGEXP {
my $safe_protocols = join('|', SAFE_PROTOCOLS);
return qr/($safe_protocols):[^\s<>\"]+[\w\/]/i;
return qr/($safe_protocols):[^:\s<>\"][^\s<>\"]+[\w\/]/i;
}
# Convert the constants in the Bugzilla::Constants and Bugzilla::WebService::Constants