[Bast-commits] r4171 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2008-03-11 15:10:50 +0000 (Tue, 11 Mar 2008)
New Revision: 4171

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
Log:
Make throw_exception in RS a bit more forgiving too

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2008-03-11 15:03:34 UTC (rev 4170)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2008-03-11 15:10:50 UTC (rev 4171)
@@ -2132,7 +2132,7 @@
 
 sub throw_exception {
   my $self=shift;
-  if (ref $self) {
+  if (ref $self && $self->_source_handle->schema) {
     $self->_source_handle->schema->throw_exception(@_)
   } else {
     croak(@_);