[Bast-commits] r6213 - DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-05-11 21:21:11 +0000 (Mon, 11 May 2009)
New Revision: 6213

Modified:
   DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm
Log:
use carp instead of warn

Modified: DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm	2009-05-11 20:41:21 UTC (rev 6212)
+++ DBIx-Class/0.08/branches/count_distinct/lib/DBIx/Class/Storage/DBI.pm	2009-05-11 21:21:11 UTC (rev 6213)
@@ -37,6 +37,7 @@
   DBIC::SQL::Abstract; # Would merge upstream, but nate doesn't reply :(
 
 use base qw/SQL::Abstract::Limit/;
+use Carp::Clan qw/^DBIx::Class/;
 
 sub new {
   my $self = shift->SUPER::new(@_);
@@ -232,7 +233,7 @@
               "{ select => [ qw/" . (join ' ', @$_fields) . "/ ], distinct => 1 }";
         }
         else {
-          warn "This syntax will be deprecated in 09, please use " . 
+          carp "This syntax will be deprecated in 09, please use " . 
                "{ group_by => '${_fields}' }" . 
                " or " .
                "{ select => '${_fields}', distinct => 1 }";