[Bast-commits] r3499 - in branches/DBIx-Class-current: . lib/DBIx/Class lib/DBIx/Class/Storage

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-06-16 19:49:33 +0100 (Sat, 16 Jun 2007)
New Revision: 3499

Modified:
   branches/DBIx-Class-current/Changes
   branches/DBIx-Class-current/lib/DBIx/Class/Storage.pm
   branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI.pm
Log:
autoflush debugfh, plus Changes for this and the weakref thing

Modified: branches/DBIx-Class-current/Changes
===================================================================
--- branches/DBIx-Class-current/Changes	2007-06-16 17:19:36 UTC (rev 3498)
+++ branches/DBIx-Class-current/Changes	2007-06-16 18:49:33 UTC (rev 3499)
@@ -1,5 +1,8 @@
 Revision history for DBIx::Class
 
+        - Fixed DBIC_TRACE debug filehandles to set ->autoflush(1)
+        - Fixed circular dbh<->storage in HandleError with weakref
+
 0.07999_06 2007-06-13 04:45:00
         - tweaked Row.pm to make last_insert_id take multiple column names
         - Fixed DBIC::Storage::DBI::Cursor::DESTROY bug that was

Modified: branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI.pm	2007-06-16 17:19:36 UTC (rev 3498)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI.pm	2007-06-16 18:49:33 UTC (rev 3499)
@@ -9,7 +9,6 @@
 use SQL::Abstract::Limit;
 use DBIx::Class::Storage::DBI::Cursor;
 use DBIx::Class::Storage::Statistics;
-use IO::File;
 use Scalar::Util qw/blessed weaken/;
 
 __PACKAGE__->mk_group_accessors('simple' =>

Modified: branches/DBIx-Class-current/lib/DBIx/Class/Storage.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Storage.pm	2007-06-16 17:19:36 UTC (rev 3498)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Storage.pm	2007-06-16 18:49:33 UTC (rev 3499)
@@ -7,6 +7,7 @@
 
 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 @@
     $fh = IO::File->new('>&STDERR');
   }
 
+  $fh->autoflush(1);
   $new->debugfh($fh);
   $new->debug(1) if $debug_env;