From 865ea676d6394b4fb7e675866812248eeedd5beb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Fri, 2 Sep 2016 13:49:58 +0200 Subject: [PATCH] DBUpgrade2: single-dbh MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Betrifft das Surrogat-dbh-handling in db-upgrades. Der alte Code versucht $::form->get_standard_dbh mit dem Upgrade Handle zu überschreiben, damit Code der im Upgrade läuft das benutzen kann. Das geht mit dem SL::DB->client handling nicht. Angenehmer Nebeneffekt ist, dass man jetzt sofort bei Testläufen auf der Konsole sieht wenn das passiert, weil das Handle nicht funktioniert und damit abstürzt. --- SL/DBUpgrade2.pm | 4 ---- 1 file changed, 4 deletions(-) diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index ede850154..5c8280b2c 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -243,8 +243,6 @@ sub process_perl_script { $dbh->begin_work; # setup dbup_ export vars & run script - my $old_dbh = SL::DB->client->dbh; - SL::DB->client->dbh($dbh); my %dbup_myconfig = map { ($_ => $::form->{$_}) } qw(dbname dbuser dbpasswd dbhost dbport dbconnect); my $result = eval { SL::DBUpgrade2::Base::execute_script( @@ -257,8 +255,6 @@ sub process_perl_script { my $error = $EVAL_ERROR; - SL::DB->client->dbh($old_dbh); - $dbh->rollback if 1 != ($result // -1); return $error if $self->{return_on_error} && (1 != ($result // -1)); -- 2.20.1