X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=e14e40e266a9fccca0896085b4f9b6155727f694;hp=645c046349e63957ac809b4d44ca78b48a56ad65;hb=3a445aceb3bef919c41c0912b13de492d4b315ec;hpb=6438c73c6e11a516bfb670397bfc57048ac94c44 diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm index 645c046..e14e40e 100644 --- a/lib/Apache/MVC.pm +++ b/lib/Apache/MVC.pm @@ -12,6 +12,7 @@ use constant APACHE2 => $mod_perl::VERSION >= 1.99; if (APACHE2) { require Apache2; + require Apache::RequestIO; require Apache::RequestRec; require Apache::RequestUtil; require APR::URI; @@ -47,7 +48,9 @@ sub send_output { ? $r->{content_type} . "; charset=" . $r->{document_encoding} : $r->{content_type} ); - $r->{ar}->headers_out->set( "Content-Length" => do { use bytes; length $r->{output} } ); + $r->{ar}->headers_out->set( + "Content-Length" => do { use bytes; length $r->{output} } + ); APACHE2 || $r->{ar}->send_http_header; $r->{ar}->print( $r->{output} ); }