X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=Web.pm;h=e41a314f3d09e47f2d524abca9ba690d5df97d32;hb=refs%2Fheads%2Fmodperl;hp=e2f94bc497d75f036a79b1695fe905692b882b1a;hpb=6a83a3acaee8a1b2b6f906fdf0bdebd29ff00444;p=MyWeb.git

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";
 		}