Disconnect the database handle cleanly on exit.

[ccbs] / html / show-tournament.pl

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;