X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=Web.pm;h=dbb9c44a06add15277326c27777d1f19b7ad4bf4;hb=4e6161858714cf6b06278b32e36df915ef81c6fc;hp=ae4a0a869d2bbe48a5d9b0d8a5f8e35238a8202e;hpb=d66cbe9f18586a2d0f5ce789a5d1824878965fd7;p=MyWeb.git

diff --git a/Web.pm b/Web.pm
index ae4a0a8..dbb9c44 100644
--- 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";
@@ -1103,7 +1104,8 @@ my($class)=@_;
 	header("Cache-Control"=>"public");	# HTTP/1.1
 
 	# Use $W->{"charset"}=0 to disable charset.
-	$W->{"charset"}="us-ascii" if !defined $W->{"charset"} && !defined($W->{"content_type"}) || $W->{"content_type"};
+	$W->{"charset"}="us-ascii"
+			if !defined $W->{"charset"} && (!defined($W->{"content_type"}) || $W->{"content_type"});
 
 	# Workaround bug
 	#   https://bugzilla.mozilla.org/show_bug.cgi?id=120556