From 1853d2519cc6a003a6bb8feee4d70812cb956b23 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Tue, 15 Sep 2015 17:27:39 +0200 Subject: [PATCH] DBConnect Caching: DBConnect auto args in den Key aufnehmen --- SL/DBConnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DBConnect.pm b/SL/DBConnect.pm index 4ee48733f..9f2472c13 100644 --- a/SL/DBConnect.pm +++ b/SL/DBConnect.pm @@ -16,7 +16,6 @@ my %dateformat_to_datestyle = ( sub _connect { my ($self, @args) = @_; - @args = $self->get_connect_args if !@args; return DBI->connect(@args) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl}; @@ -33,6 +32,7 @@ sub _connect { sub connect { my ($self, @args) = @_; + @args = $self->get_connect_args if !@args; my $initial_sql = $self->get_initial_sql; if (my $cached_dbh = SL::DBConnect::Cache->get(@args, $initial_sql)) { -- 2.20.1