--- db/prgsrc/renamefile.pl	2001/07/28 21:31:37	1.1
+++ db/prgsrc/renamefile.pl	2001/07/28 21:39:47	1.2
@@ -27,7 +27,7 @@ createindex.pl(1), updatedb.pl(1), updat
 
 Boris Veytsman
 
-=head1 $Id: renamefile.pl,v 1.1 2001/07/28 21:31:37 boris Exp $
+=head1 $Id: renamefile.pl,v 1.2 2001/07/28 21:39:47 boris Exp $
 
 =cut
 
@@ -51,6 +51,8 @@ MAIN:
     $sth->execute;
     if(!$sth->rows) {
 	print STDERR "There is no file $source in the database\n";
+	$sth->finish;
+	$dbh->disconnect;
 	exit 1;
     }
     my ($Title)=$sth->fetchrow;
@@ -61,6 +63,8 @@ MAIN:
     if($sth->rows) {
 	($Title)=$sth->fetchrow;
 	print STDERR "The file $source already exists. The title is $Title\n";
+	$sth->finish;
+	$dbh->disconnect;
 	exit 1;
     }