X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;fp=Web.pm;h=dfd4b485e3fde5aefbda13f6bac5bbedf74ab06f;hp=2ab9c00496c09ecd5a13ae1388952ce58b0dae7e;hb=c187fd6891a05e62d6d80001a3826ac5fc9f5112;hpb=ec7176a762a7df4d5eeff663455702ca80a54e9d

diff --git a/Web.pm b/Web.pm
index 2ab9c00..dfd4b48 100644
--- a/Web.pm
+++ b/Web.pm
@@ -647,10 +647,13 @@ my($class)=@_;
 	while (my($key,$val)=each(%{$W->{"headers"}})) {
 		$W->{"r"}->header_out($key,$val);
 		}
-	$W->{"r"}->send_http_header("text/html; charset=$client_charset");	# "Content-type"; do not use header()
+	if (!$W->{"header_only"}) {
+		$W->{"r"}->send_http_header("text/html; charset=$client_charset");	# "Content-type"; do not use header()
+		}
 
 	return if $W->{"heading_done"}++;
 	exit if $W->{"r"}->header_only();
+	return if $W->{"header_only"};
 
 	if (1) { # || !$msie_major || $msie_major>=4) # TODO:dyn
 		Wprint '<?xml version="1.0" encoding="'.$client_charset.'"?>'."\n";