From: Sebastian Riedel <sri@labs.kraih.com>
Date: Wed, 17 Nov 2004 08:47:38 +0000 (+0000)
Subject: Added Apache::RequestIO to Apache::MVC
X-Git-Tag: 2.10~82
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=3a445aceb3bef919c41c0912b13de492d4b315ec;p=maypole.git

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 7dadefc..3c1b069 100644
--- 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 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} );
 }