X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FException.pm;h=85c08b29b0e2e74cd0ae0cdf532cba82954b3cc3;hb=04ebc6f4d9b90ad04258ef202c3879b509dd0b09;hp=77a3a967dd8a18c4ec0758e541cf30a2ebd3da44;hpb=b2f408f3651f1f86865e4f850858fe73ad18a084;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Exception.pm b/lib/DBIx/Class/Exception.pm index 77a3a96..85c08b2 100644 --- a/lib/DBIx/Class/Exception.pm +++ b/lib/DBIx/Class/Exception.pm @@ -16,8 +16,8 @@ DBIx::Class::Exception - Exception objects for DBIx::Class =head1 DESCRIPTION -Exception objects of this class are used in internally by -he default error handling of L +Exception objects of this class are used internally by +the default error handling of L to prevent confusing and/or redundant re-application of L's stack trace information. @@ -49,8 +49,8 @@ L. sub throw { my ($class, $msg, $stacktrace) = @_; - # Don't re-encapsulate multiple times - die $msg if blessed($msg) && $msg->isa('DBIx::Class::Exception'); + # Don't re-encapsulate exception objects of any kind + die $msg if blessed($msg); # use Carp::Clan's croak if we're not stack tracing if(!$stacktrace) {