From: Jess Robinson <castaway@desert-island.me.uk>
Date: Tue, 28 Mar 2006 14:37:34 +0000 (+0000)
Subject: More debugging for "no sth generated"
X-Git-Tag: v0.06001~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6861d1969cec6b1b143126c16987c8059beb306a;p=dbsrgits%2FDBIx-Class.git

More debugging for "no sth generated"
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 35a165a..2bd6f63 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -477,7 +477,7 @@ sub _execute {
       $self->debugfh->print("$sql: " . join(', ', @debug_bind) . "\n");
   }
   my $sth = $self->sth($sql,$op);
-  $self->throw_exception("no sth generated via sql: $sql") unless $sth;
+  $self->throw_exception('no sth generated via sql (' . $self->_dbh->errstr . "): $sql" unless $sth;
   @bind = map { ref $_ ? ''.$_ : $_ } @bind; # stringify args
   my $rv;
   if ($sth) {