From 70f17007495b2ade2426b91d51124ba3182b58f7 Mon Sep 17 00:00:00 2001
From: jvdias <jvdias@fedoraproject.org>
Date: Wed, 12 Apr 2006 23:22:08 +0000
Subject: [PATCH] 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 | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 perl-5.8.8-bz188441.patch

diff --git a/perl-5.8.8-bz188441.patch b/perl-5.8.8-bz188441.patch
new file mode 100644
index 0000000..639b2b5
--- /dev/null
+++ b/perl-5.8.8-bz188441.patch
@@ -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;
+     }