[Catalyst-commits] r8376 - in CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk: lib/CatalystX/CRUD/Model t

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-09-09 20:53:45 +0100 (Tue, 09 Sep 2008)
New Revision: 8376

Modified:
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/01-rdbo.t
Log:
do not dump the entire query when in debug mode

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2008-09-09 19:14:11 UTC (rev 8375)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2008-09-09 19:53:45 UTC (rev 8376)
@@ -471,7 +471,8 @@
         }
     }
 
-    $c->log->debug( 'make_query: ' . dump $q ) if $c->debug;
+    $c->log->debug("make_query: WHERE $q->{query_obj} ORDER BY $q->{sort_by}")
+        if $c->debug;
 
     return $q;
 }

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/01-rdbo.t
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/01-rdbo.t	2008-09-09 19:14:11 UTC (rev 8375)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/01-rdbo.t	2008-09-09 19:53:45 UTC (rev 8376)
@@ -1,7 +1,6 @@
 use Test::More tests => 20;
 
 BEGIN {
-    $ENV{CATALYST_DEBUG} = $ENV{PERL_DEBUG} || 0;
     use lib qw( ../../CatalystX-CRUD/trunk/lib );
     use_ok('CatalystX::CRUD::Model::RDBO');
     use_ok('CatalystX::CRUD::Object::RDBO');