Fixed absolute hostname redirections for mod_perl proxying.

diff --git a/Web.pm b/Web.pm
index e2f94bc..e41a314 100644 (file)
--- 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";
                }