documentatin updates

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine.pm

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 349bc43..149d772 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -103,6 +103,11 @@ sub finalize_body {
                     $got = 0 unless $self->write($c, $buffer );
                 } while $got > 0;
 
+                # I really am guessing this case is pathological.  I'd like to remove it
+                # but need to give people a bit of heads up
+                $c->log->warn('!!! Setting $response->body to an object that supports "read" but not "getline" is deprecated. !!!')
+                  unless $self->{__FH_READ_DEPRECATION_NOTICE_qwvsretf43}++;
+
                 close $body;
                 return;
             } else {
@@ -112,7 +117,7 @@ sub finalize_body {
               $body = [$body];  
             }
         } else {
-          $body = [undef];
+          $body = [];
         }
 
         $res->_response_cb->([ $res->status, \@headers, $body]);