rpms/perl/devel perl-5.8.8-bz188441.patch,NONE,1.1

[fedora-cvs-commits at redhat.com]

Author: jvdias

Update of /cvs/dist/rpms/perl/devel
In directory cvs.devel.redhat.com:/tmp/cvs-serv13729

Added Files:
	perl-5.8.8-bz188441.patch 
Log Message:
fix for bug bz188441: url(-relative=>1) must use $request_uri instead of $script_name if $rewrite_in_use, as does url(-absolute=>1)

perl-5.8.8-bz188441.patch:
 CGI.pm |    2 +-
 1 files changed, 1 insertion(+), 1 deletion(-)

--- NEW FILE perl-5.8.8-bz188441.patch ---
--- 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;
     }