projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Auth-DB-Spalten-Infos nur lesen, wenn DB-Verbindung vorhanden
[kivitendo-erp.git]
/
SL
/
DB.pm
diff --git
a/SL/DB.pm
b/SL/DB.pm
index
40c8a95
..
29d0090
100644
(file)
--- a/
SL/DB.pm
+++ b/
SL/DB.pm
@@
-7,6
+7,7
@@
use Data::Dumper;
use English qw(-no_match_vars);
use Rose::DB;
use Rose::DBx::Cache::Anywhere;
use English qw(-no_match_vars);
use Rose::DB;
use Rose::DBx::Cache::Anywhere;
+use Scalar::Util qw(blessed);
use base qw(Rose::DB);
use base qw(Rose::DB);
@@
-138,7
+139,7
@@
sub with_transaction {
: $self->do_transaction(sub { $result = $code->(@args) });
} or do {
my $error = $self->error;
: $self->do_transaction(sub { $result = $code->(@args) });
} or do {
my $error = $self->error;
- if (
ref
$error) {
+ if (
blessed
$error) {
if ($error->isa('SL::X::DBError')) {
# gobble the exception
} else {
if ($error->isa('SL::X::DBError')) {
# gobble the exception
} else {