X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=df046cb98c61380a36c9125733e3ab2ff20605a5;hp=8d1bdbe26012275a4eed9aaa9cb742baedee6166;hb=094a097487bc728277257b08f556085368a302f3;hpb=4f445d82009773eaec628e6ada7bdad23ed52036 diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm index 8d1bdbe..df046cb 100644 --- a/lib/Catalyst/Engine.pm +++ b/lib/Catalyst/Engine.pm @@ -623,6 +623,8 @@ sub write { $self->{_prepared_write} = 1; } + return 0 if !defined $buffer; + my $len = length($buffer); my $wrote = syswrite STDOUT, $buffer;