From: Christian Hansen <chansen@cpan.org>
Date: Mon, 25 Apr 2005 12:07:01 +0000 (+0000)
Subject: Fixed uninitialized warnings with HTTP::Daemon
X-Git-Tag: 5.7099_04~1434
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=032221564b1da678e7f13b97a4cd99a05a31c35c

Fixed uninitialized warnings with HTTP::Daemon
---

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 9b47011..d061984 100644
--- 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
--- 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 ) ) {