Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the CGI CPAN distribution.

Report information
The Basics
Id: 5343
Status: resolved
Priority: 0/
Queue: CGI

Owner: Nobody in particular
Requestors: subbarao [...]

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)


MIME-Version: 1.0
X-Mailer: MIME-tools 5.405 (Entity 5.404)
Subject: url() doesn't handle newlines properly when stripping query_string
Content-Type: multipart/mixed; boundary="----------=_1076881994-16105-0"
Content-Length: 0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: iso-8859-1
Content-Length: 283
Download (untitled) / with headers
text/plain 283b
the url() function in doesn't handle newlines properly when stripping query_string. For example, a query_string of foo%0Abar does not get properly stripped. The fix is simple. Just add the /s modifier to the regexp that strips the query string. Please see the attached patch.
Content-Type: application/octet-stream; name="multiline_querystring.patch"
Content-Disposition: inline; filename="multiline_querystring.patch"
Content-Transfer-Encoding: base64
Content-Length: 751
*** /usr/lib/perl5/5.8.0/ 2004-01-19 07:39:30.000000000 -0500 --- /tmp/ 2004-02-15 16:43:09.000000000 -0500 *************** *** 2545,2551 **** if (exists($ENV{REQUEST_URI})) { my $index; $script_name = unescape($ENV{REQUEST_URI}); ! $script_name =~ s/\?.+$//; # strip query string # and path if (exists($ENV{PATH_INFO})) { my $encoded_path = unescape($ENV{PATH_INFO}); --- 2545,2551 ---- if (exists($ENV{REQUEST_URI})) { my $index; $script_name = unescape($ENV{REQUEST_URI}); ! $script_name =~ s/\?.+$//s; # strip query string # and path if (exists($ENV{PATH_INFO})) { my $encoded_path = unescape($ENV{PATH_INFO});

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to