X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage.pm;h=735ac65ff1c4023f55739ccab55750e9cb11a618;hp=336906997f9c007fd7b6ffcc47521b46d5995b89;hb=942cd0c142a828426a2ba3650991188c7c02178c;hpb=08fabf592cfb90f174428eb8ac258caed293e6f7

diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm
index 3369069..735ac65 100644
--- a/lib/DBIx/Class/Storage.pm
+++ b/lib/DBIx/Class/Storage.pm
@@ -7,6 +7,7 @@ use base qw/DBIx::Class/;
 
 use Scalar::Util qw/weaken/;
 use Carp::Clan qw/^DBIx::Class/;
+use IO::File;
 
 __PACKAGE__->mk_group_accessors('simple' => qw/debug debugobj schema/);
 
@@ -67,6 +68,7 @@ sub new {
     $fh = IO::File->new('>&STDERR');
   }
 
+  $fh->autoflush(1);
   $new->debugfh($fh);
   $new->debug(1) if $debug_env;