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

diff --git a/Changes b/Changes
index 3f282e3..4e06e66 100644 (file)
--- 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 (file)
--- 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(@_);