Fix a warning in a test script.

diff --git a/bin/interpret.pl b/bin/interpret.pl
index 2051ddb2be9a905a2aae1cf10187f48508cf74b5..0d10f9f4d93f98693eb547f96e3b90a4c1941664 100644 (file)
--- a/bin/interpret.pl
+++ b/bin/interpret.pl
@@ -28,6 +28,8 @@ while (my $ref = $q->fetchrow_hashref) {
                print "$desc\n";
        }
 }
+$q->finish;
+$dbh->disconnect;
 
 sub db_connect {
        my $dbh = DBI->connect("dbi:Pg:dbname=$config::dbname;host=127.0.0.1", $config::dbuser, $config::dbpass, {RaiseError => 1})