Disconnect the database handle cleanly on exit.

diff --git a/html/show-tournament.pl b/html/show-tournament.pl
index fe40817052edde3feeb36b22c711ea7fc864a3d5..999ea107bf0d017109e1ddcfc1f7b360342ea3cf 100755 (executable)
--- a/html/show-tournament.pl
+++ b/html/show-tournament.pl
@@ -47,3 +47,4 @@ for my $score (@$scores) {
 
 ccbs::print_header();
 ccbs::process_template('show-tournament.tmpl', 'Turnering', { tournament => $tournament, rounds => \@rounds });
+$dbh->disconnect;

diff --git a/html/tournaments.pl b/html/tournaments.pl
index 169d84d1b1c1b0c253b0558433ee05d39a71bc68..8417b3c3af24bdd8e4baa57ea2e95607a739a271 100755 (executable)
--- a/html/tournaments.pl
+++ b/html/tournaments.pl
@@ -9,3 +9,4 @@ my $tournaments = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournaments NATURAL JO
 
 ccbs::print_header();
 ccbs::process_template('tournaments.tmpl', 'Turneringer', { tournaments => $tournaments });
+$dbh->disconnect;