Added Apache::RequestIO to Apache::MVC

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@282 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/Changes b/Changes
index 7dadefc3a84182115a558fb80b9e9aaeff3d0502..3c1b069e29ee2b770ef7a07778e993711c948c8a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,14 +1,15 @@
 Revision history for Perl extension Maypole 
 
 2.05  Tue Oct 28 20:00:00 2004
-    - Fixed a bug in CGI::Maypole::parse_location() (Dave Howorth)
-    - Some fixes for Maypole::Config, Maypole::Model::Base and
+    - fixed a bug in CGI::Maypole::parse_location() (Dave Howorth)
+    - some fixes for Maypole::Config, Maypole::Model::Base and
       Maypole::Model::CDBI::Plain (Dave Howorth)
+    - Added Apache::RequestIO to Apache::MVC (michael@diaspora.gen.nz)
 
 2.04  Tue Oct 27 14:00:00 2004
-    - Fixed Apache::MVC version (Randal Schwartz)
+    - fixed Apache::MVC version (Randal Schwartz)
     - fixed template_args (Dave Howorth)
-    - New Maypole::Config documentation (Dave Howorth)
+    - new Maypole::Config documentation (Dave Howorth)
     - Maypole::Model::Base::process() no more steals you the first
       arg after fetching objects
 
@@ -17,7 +18,7 @@ Revision history for Perl extension Maypole
     - fixed display_tables bug (Steve Simms)
     - fixed templates, now again XHTML compliant
     - documentation fix (Dave Howorth)
-    - Only set charset for text/*
+    - only set charset for text/*
 
 2.02  Mon Oct 25 13:00:00 2004
     - Fixed charset in http header.

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 645c046349e63957ac809b4d44ca78b48a56ad65..e14e40e266a9fccca0896085b4f9b6155727f694 100644 (file)
--- 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} );
 }