Model::Base: when rollback called, set error strings

diff --git a/src/newslash_web/lib/Newslash/Model/Base.pm b/src/newslash_web/lib/Newslash/Model/Base.pm
index d0ff321..02c1c4a 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Base.pm
+++ b/src/newslash_web/lib/Newslash/Model/Base.pm
@@ -67,6 +67,8 @@ sub rollback {
     my $self = shift;
     return if !$self->transaction_mode;
 
+    $self->set_error($self->{_tr_dbh}->errstr);
+
     $self->{_tr_dbh}->rollback;
     $self->{_tr_dbh}->disconnect;
     delete $self->{_tr_dbh};