From 3990577f3722fbe9b79f91f73e934a8e2b552d1e Mon Sep 17 00:00:00 2001
From: short <>
Date: Thu, 16 Oct 2003 16:18:05 +0000
Subject: [PATCH] Fixed absolute hostname redirections for mod_perl proxying.

---
 Web.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Web.pm b/Web.pm
index e2f94bc..e41a314 100644
--- a/Web.pm
+++ b/Web.pm
@@ -134,7 +134,7 @@ my($class,%args)=@_;
 		{ delete $W->{"have_ent"}; }
 	if ($W->{"detect_ent"} && !defined $W->{"have_ent"} && $W->{"r"}->method() eq "GET") {
 		$W->{"head"}.='<meta http-equiv="Refresh" content="0; URL='
-				.CGI::escapeHTML("http://".$W->{"r"}->hostname()."/".($W->{"r"}->uri()=~m#^/*(.*)$#)[0]
+				.CGI::escapeHTML("http://".&{$W->{"web_hostname_sub"}}()."/".($W->{"r"}->uri()=~m#^/*(.*)$#)[0]
 						."?".($W->{"QUERY_STRING"} || "detect_ent_glue=1").'&have_ent=detect')
 				.'" />'."\n";
 		}
-- 
1.8.3.1