From: ivan <ivan>
Date: Wed, 29 May 2002 20:45:04 +0000 (+0000)
Subject: eliminate harmless "Database handle destroyed without explicit disconnect"
X-Git-Tag: freeside_1_4_0_pre14~61
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=4aaa65f643469cf2df1d97f5e12e05d0122d9570

eliminate harmless "Database handle destroyed without explicit disconnect"
errors
---

diff --git a/FS/bin/freeside-sqlradius-reset b/FS/bin/freeside-sqlradius-reset
index 132be754a..41f3358f6 100755
--- a/FS/bin/freeside-sqlradius-reset
+++ b/FS/bin/freeside-sqlradius-reset
@@ -22,6 +22,7 @@ foreach my $export ( @exports ) {
     my $sth = $icradius_dbh->prepare("DELETE FROM $table");
     $sth->execute or die "Can't reset $table table: ". $sth->errstr;
   }
+  $icradius_dbh->disconnect;
 }
 
 foreach my $export ( @exports ) {