From 61fbc22bd19a5888abae2ff8b8bdf4b385e4d6ee Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@samfundet.no>
Date: Mon, 14 Feb 2005 01:06:24 +0000
Subject: [PATCH] Disconnect the database handle cleanly on exit.

---
 html/show-tournament.pl | 1 +
 html/tournaments.pl     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/html/show-tournament.pl b/html/show-tournament.pl
index fe40817..999ea10 100755
--- 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 169d84d..8417b3c 100755
--- 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;
-- 
2.39.2