Disconnect the database handle cleanly on exit.
authorSteinar H. Gunderson <sesse@samfundet.no>
Mon, 14 Feb 2005 01:06:24 +0000 (01:06 +0000)
committerSteinar H. Gunderson <sesse@samfundet.no>
Mon, 14 Feb 2005 01:06:24 +0000 (01:06 +0000)
html/show-tournament.pl
html/tournaments.pl

index fe40817..999ea10 100755 (executable)
@@ -47,3 +47,4 @@ for my $score (@$scores) {
 
 ccbs::print_header();
 ccbs::process_template('show-tournament.tmpl', 'Turnering', { tournament => $tournament, rounds => \@rounds });
+$dbh->disconnect;
index 169d84d..8417b3c 100755 (executable)
@@ -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;