add URI::http to C::E::Apache so it gets loaded during startup phase

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 2248f44..fa8d9f1 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -167,7 +167,7 @@ sub finalize {
     if ( my $location = $c->response->redirect ) {
         $c->log->debug(qq/Redirecting to "$location"/) if $c->debug;
         $c->response->header( Location => $location );
-        $c->response->status(302) if $c->response->status !~ /3\d\d$/;
+        $c->response->status(302) if $c->response->status !~ /^3\d\d$/;
     }
 
     if ( $#{ $c->error } >= 0 ) {

diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm
index ac7fe90..3259c3b 100644 (file)
--- a/lib/Catalyst/Engine/Apache.pm
+++ b/lib/Catalyst/Engine/Apache.pm
@@ -5,6 +5,7 @@ use mod_perl;
 use constant MP2 => $mod_perl::VERSION >= 1.99;
 use base 'Catalyst::Engine';
 use URI;
+use URI::http;
 
 __PACKAGE__->mk_accessors(qw/apache/);