X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FCGI.pm;h=2fcc8f8c4de955bf158c447ef6853eb4a2b57973;hb=afb82794328ff8da1efc0a4c37f3f3703c262c31;hp=ae5a65283f069c0e5ab9a8e7d25c2009d4865ef7;hpb=ac5c933bdd463558e8d621507a53a7b247a9093e;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm
index ae5a652..2fcc8f8 100644
--- a/lib/Catalyst/Engine/CGI.pm
+++ b/lib/Catalyst/Engine/CGI.pm
@@ -200,8 +200,9 @@ Enable autoflush on the output handle for CGI-based engines.
 
 =cut
 
-before prepare_write => sub {
+around prepare_write => sub {
     *STDOUT->autoflush(1);
+    return shift->(@_);
 };
 
 =head2 $self->write($c, $buffer)
@@ -252,5 +253,6 @@ This program is free software, you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
 =cut
+no Moose;
 
 1;