Revision b2d2a98c
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
|
||
|
my $standard_dbh;
|
||
|
|
||
|
sub DESTROY {
|
||
|
END {
|
||
|
if ($standard_dbh) {
|
||
|
$standard_dbh->disconnect();
|
||
|
undef $standard_dbh;
|
||
Auch abrufbar als: Unified diff
Konzeptioneller Fehler. Da es mehr als ein Form-Objekt geben kann (in diesem Falle beim Wiederherstellen von $form mittels restore_form()), darf das Standard-Datenbankhandle nicht geschlossen werden, wenn ein Form-Objekt vernichtet wird, sondern erst, wenn das Programm beendet wird.