[Catalyst-commits] r13904 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2011-01-04 12:55:50 +0000 (Tue, 04 Jan 2011)
New Revision: 13904

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm
Log:
Fix a warning with undef bodies

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm	2011-01-04 12:12:20 UTC (rev 13903)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/CGI.pm	2011-01-04 12:55:50 UTC (rev 13904)
@@ -288,7 +288,10 @@
 
     # Prepend the headers if they have not yet been sent
     if ( $self->_has_header_buf ) {
-        $buffer = $self->_clear_header_buf . $buffer;
+        my $headers = $self->_clear_header_buf;
+
+        $buffer = defined $buffer
+            ? $headers . $buffer : $headers;
     }
 
     return $self->$orig( $c, $buffer );