[Catalyst-commits] r6648 - in trunk/Catalyst-Action-RenderView: . lib/Catalyst/Action

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2007-08-12 15:13:17 +0100 (Sun, 12 Aug 2007)
New Revision: 6648

Modified:
   trunk/Catalyst-Action-RenderView/Changes
   trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm
Log:
Remove undef warning in length

Modified: trunk/Catalyst-Action-RenderView/Changes
===================================================================
--- trunk/Catalyst-Action-RenderView/Changes	2007-08-11 22:36:51 UTC (rev 6647)
+++ trunk/Catalyst-Action-RenderView/Changes	2007-08-12 14:13:17 UTC (rev 6648)
@@ -1,3 +1,6 @@
+
+    - Remove undef warning
+
 0.05 2007-04-26
     - switch to Module::Install
 

Modified: trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm
===================================================================
--- trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm	2007-08-11 22:36:51 UTC (rev 6647)
+++ trunk/Catalyst-Action-RenderView/lib/Catalyst/Action/RenderView.pm	2007-08-12 14:13:17 UTC (rev 6648)
@@ -12,16 +12,16 @@
     my ($controller, $c ) = @_;
     $self->NEXT::execute( @_ );
     if ($c->debug && $c->req->params->{dump_info}) {
-	die "forced debug" 
+        die "forced debug" 
     }
     if(! $c->response->content_type ) {
         $c->response->content_type( 'text/html; charset=utf-8' );
     }
     return 1 if $c->req->method eq 'HEAD';
-    return 1 if length( $c->response->body );
+    return 1 if $c->response->body && length( $c->response->body );
     return 1 if scalar @{ $c->error } && !$c->stash->{template};
     return 1 if $c->response->status =~ /^(?:204|3\d\d)$/;
-    my $view=$c->view() 
+    my $view = $c->view() 
         || die "Catalyst::Action::RenderView could not find a view to forward to.\n";
     $c->forward( $view );
 };