better yet, we should have a method to query all PerlOptions from Perl,
end up with something like:

 sub send_http_header {
     my($r, $type) = @_;
     if ($type) {
         $r->content_type($type);
     }
+    if ($r->perl_options & ModPerl::OPT_PARSE_HEADERS) {
+       $r->print("Content-type: $type\n\n");
+    }
 }


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to