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:
@@ -1 +1 @@
|
||||
8228
|
||||
8229
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user