From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 19 Mar 2011 23:30:26 +0000 (+0100)
Subject: Do not import Carp functions into the namespace
X-Git-Tag: v1.73_01~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d9d5bd62909b04bb5c75381dba0cb104b5411a0;p=dbsrgits%2FSQL-Abstract.git

Do not import Carp functions into the namespace
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 9e5bb52..03ffca2 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -5,9 +5,9 @@ package SQL::Abstract; # see doc at end of file
 # the test / diffusion / acceptance phase; those are marked with flag
 # 'LDNOTE' (note by laurent.dami AT free.fr)
 
-use Carp;
 use strict;
 use warnings;
+use Carp ();
 use List::Util ();
 use Scalar::Util ();
 
@@ -50,12 +50,12 @@ sub _debug {
 
 sub belch (@) {
   my($func) = (caller(1))[3];
-  carp "[$func] Warning: ", @_;
+  Carp::carp "[$func] Warning: ", @_;
 }
 
 sub puke (@) {
   my($func) = (caller(1))[3];
-  croak "[$func] Fatal: ", @_;
+  Carp::croak "[$func] Fatal: ", @_;
 }