[Bast-commits] r7375 - DBIx-Class/0.08/branches/sybase/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-24 13:51:48 +0000 (Mon, 24 Aug 2009)
New Revision: 7375

Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
Log:
use debugobj->callback instead of local *_query_start in test to capture query

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-24 13:49:40 UTC (rev 7374)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-24 13:51:48 UTC (rev 7375)
@@ -150,8 +150,10 @@
 # placeholders.)
   {
     no warnings 'redefine';
+
     my @debug_out;
-    local *DBIx::Class::Storage::DBI::_query_start = sub {
+    local $schema->storage->{debug} = 1;
+    local $schema->storage->debugobj->{callback} = sub {
       push @debug_out, $_[1];
     };