X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FException.pm;h=6c8d0e9a69e599a01a9664c11a0fc593aa7c010b;hb=aa56106b252283cef5338312d66fdf62cc92df20;hp=46a85f62acefd2e06e1aaab8e80d3e3b236e0a3a;hpb=fd323bf1046faa7de5a8c985268d80ec5b703361;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Exception.pm b/lib/DBIx/Class/Exception.pm index 46a85f6..6c8d0e9 100644 --- a/lib/DBIx/Class/Exception.pm +++ b/lib/DBIx/Class/Exception.pm @@ -4,7 +4,6 @@ use strict; use warnings; use Carp::Clan qw/^DBIx::Class|^Try::Tiny/; -use Scalar::Util qw/blessed/; use Try::Tiny; use namespace::clean; @@ -52,7 +51,7 @@ sub throw { my ($class, $msg, $stacktrace) = @_; # Don't re-encapsulate exception objects of any kind - die $msg if blessed($msg); + die $msg if ref($msg); # use Carp::Clan's croak if we're not stack tracing if(!$stacktrace) {