Revision 7bd555b6
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 63 | 63 |
my $standard_dbh; |
| 64 | 64 |
|
| 65 | 65 |
END {
|
| 66 |
if ($standard_dbh) {
|
|
| 67 |
$standard_dbh->disconnect(); |
|
| 68 |
undef $standard_dbh; |
|
| 69 |
} |
|
| 66 |
disconnect_standard_dbh(); |
|
| 67 |
} |
|
| 68 |
|
|
| 69 |
sub disconnect_standard_dbh {
|
|
| 70 |
return unless $standard_dbh; |
|
| 71 |
$standard_dbh->disconnect(); |
|
| 72 |
undef $standard_dbh; |
|
| 70 | 73 |
} |
| 71 | 74 |
|
| 72 | 75 |
sub _store_value {
|
Auch abrufbar als: Unified diff
Nach jedem Request die Standard-Datenbankverbindung schließen