[Bast-commits] r3392 - branches/DBIx-Class-current/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-05-29 00:48:28 +0100 (Tue, 29 May 2007)
New Revision: 3392

Modified:
   branches/DBIx-Class-current/t/76joins.t
Log:
remove debug warn

Modified: branches/DBIx-Class-current/t/76joins.t
===================================================================
--- branches/DBIx-Class-current/t/76joins.t	2007-05-28 23:20:56 UTC (rev 3391)
+++ branches/DBIx-Class-current/t/76joins.t	2007-05-28 23:48:28 UTC (rev 3392)
@@ -238,7 +238,7 @@
 
 $queries = 0;
 
-$schema->storage->debugcb(sub { $queries++; warn "Q: @_"; });
+$schema->storage->debugcb(sub { $queries++; });
 
 $cd = $schema->resultset('CD')->find(1, { prefetch => { cd_to_producer => 'producer' } });