From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 23 Aug 2011 14:10:09 +0000 (+0200)
Subject: Skip error/warn frames within CAG - saner callsite error messages this way
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=386c61f65520dc5c1b6f3d4710e865eeff9f26a8;p=dbsrgits%2FDBIx-Class-Historic.git

Skip error/warn frames within CAG - saner callsite error messages this way
---

diff --git a/Changes b/Changes
index 3f282e3..4e06e66 100644
--- a/Changes
+++ b/Changes
@@ -12,6 +12,8 @@ Revision history for DBIx::Class
         - Fix uninitialized warning in ::Storage::Sybase::ASE
         - Improve/cache  DBD-specific datatype bind checks (also solves a
           nasty memleak with version.pm on multiple ->VERSION invocations)
+        - The internal carp module now correctly skips CAG frames when
+          reporting a callsite
 
     * Misc
         - No longer depend on Variable::Magic now that a pure-perl
diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index ae1a04b..27e3bd6 100644
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -71,7 +71,7 @@ use base qw/DBIx::Class::Componentised DBIx::Class::AccessorGroup/;
 use DBIx::Class::StartupCheck;
 
 __PACKAGE__->mk_group_accessors(inherited => '_skip_namespace_frames');
-__PACKAGE__->_skip_namespace_frames('^DBIx::Class|^SQL::Abstract|^Try::Tiny');
+__PACKAGE__->_skip_namespace_frames('^DBIx::Class|^SQL::Abstract|^Try::Tiny|^Class::Accessor::Grouped$');
 
 sub mk_classdata {
   shift->mk_classaccessor(@_);