Revision 7d607d91
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 250 | 250 |
file_name => $filename, |
| 251 | 251 |
tag => $version_or_control->{tag},
|
| 252 | 252 |
dbh => $dbh, |
| 253 |
locale => $::locale, |
|
| 254 | 253 |
myconfig => \%dbup_myconfig, |
| 255 | 254 |
); |
| 256 | 255 |
|
| 257 |
if (1 != $result) {
|
|
| 256 |
if (1 != ($result // 1)) {
|
|
| 258 | 257 |
$dbh->rollback(); |
| 259 |
$dbh->disconnect(); |
|
| 260 | 258 |
} |
| 261 | 259 |
|
| 262 | 260 |
if (!defined($result)) {
|
Auch abrufbar als: Unified diff
Perl-DB-Upgradescripte refactoring: Bugfix #1