Fixed uninitialized warnings with HTTP::Daemon

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 9b47011..d061984 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -411,10 +411,10 @@ sub prepare {
         ),
         response => Catalyst::Response->new(
             {
-                body    => undef,
+                body    => '',
                 cookies => {},
                 headers => HTTP::Headers->new,
-                status => 200
+                status  => 200
             }
         ),
         stash => {},

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index da5e8d8..8f96505 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -189,7 +189,7 @@ sub param {
         }
     }
 
-    if ( @_ > 1  ) {
+    if ( @_ > 1 ) {
 
         while ( my ( $field, $value ) = splice( @_, 0, 2 ) ) {