[Catalyst-commits] r8376 - in
CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk:
lib/CatalystX/CRUD/Model t
karpet at dev.catalyst.perl.org
karpet at dev.catalyst.perl.org
Tue Sep 9 20:53:45 BST 2008
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');
More information about the Catalyst-commits
mailing list