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