From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Mon, 11 May 2009 21:21:11 +0000 (+0000)
Subject: use carp instead of warn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2fcbdc89183b6380628b6087d35376631968264;p=dbsrgits%2FDBIx-Class-Historic.git

use carp instead of warn
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index f3d870d..8e2cb88 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -37,6 +37,7 @@ package # Hide from PAUSE
   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 @@ sub _recurse_fields {
               "{ 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 }";