From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 3 Oct 2010 23:15:35 +0000 (+0200)
Subject: Remove a stack frame from the SQLA Carp overrides
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff04fc51d1d8006d10a0629dd7b58dad0ec1a06a;p=dbsrgits%2FDBIx-Class-Historic.git

Remove a stack frame from the SQLA Carp overrides
---

diff --git a/lib/DBIx/Class/SQLMaker.pm b/lib/DBIx/Class/SQLMaker.pm
index f041ce6..ea2b23e 100644
--- a/lib/DBIx/Class/SQLMaker.pm
+++ b/lib/DBIx/Class/SQLMaker.pm
@@ -54,7 +54,7 @@ BEGIN {
     *{"SQL::Abstract::$f"} = subname "SQL::Abstract::$f" =>
       sub {
         if (Carp::longmess() =~ /DBIx::Class::SQLMaker::[\w]+ .+? called \s at/x) {
-          $clan_import->(@_);
+          goto $clan_import;
         }
         else {
           goto $orig;