From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 4 Jun 2013 13:21:21 +0000 (+0200)
Subject: Perl-Upgrade-Files: Nach Exception Rollback & bei Erfolg immer 1 zurückgeben
X-Git-Tag: release-3.1.0beta1~368
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/a4665ffc5fae447a0bedc36630b4ec9eada4be41?hp=a4665ffc5fae447a0bedc36630b4ec9eada4be41

Perl-Upgrade-Files: Nach Exception Rollback & bei Erfolg immer 1 zurückgeben

Exceptions sind vorher nach oben gebubblet, da $result undef
war. $result // 1 ist nun mal 1, was überhaupt keinen Sinn ergibt --
und dadurch wurde kein Rollback gemacht (geschweige denn die
Fehlermeldung wie gewünscht ausgegeben).

Resultat war bei Perl-DB-Upgrades der Auth-Datenbank, dass trotz
Exception später beim Speichern der Session ein Commit gemacht wurde
-- und damit alle Änderungen vor der Exception mit übernommen
wurden (sofern es da keinen Datenbankfehler gab sonder nur eine von
Perl selber ausgelöste Exception).
---