fix for bug bz188441: url(-relative=>1) must use $request_uri instead of

$script_name if $rewrite_in_use, as does url(-absolute=>1)
This commit is contained in:
jvdias 2006-04-12 23:22:08 +00:00
parent 075d1f51d8
commit 70f1700749

11
perl-5.8.8-bz188441.patch Normal file
View File

@ -0,0 +1,11 @@
--- perl-5.8.8/lib/CGI.pm.bz188441 2006-01-08 11:40:30.000000000 -0500
+++ perl-5.8.8/lib/CGI.pm 2006-04-12 18:49:26.000000000 -0400
@@ -2650,7 +2650,7 @@
return $url if $base;
$url .= $uri;
} elsif ($relative) {
- ($url) = $script_name =~ m!([^/]+)$!;
+ ($url) = $uri =~ m!([^/]+)$!;
} elsif ($absolute) {
$url = $uri;
}