&http_moved: Fixed warn on forgotten: $W->{"charset"}

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index 0efd5f6..dbb9c44 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -706,6 +706,7 @@ my($self,$url,$status)=@_;
        $W->{"r"}->headers_out()->{"Location"}=$url;
        $W->{"header_only"}=1;
        $W->{"content_type"}=0;
+       $W->{"charset"}=0;
        My::Web->heading();
        exit;
        die "NOTREACHED";