From: ivan <ivan>
Date: Tue, 24 Aug 2010 18:57:11 +0000 (+0000)
Subject: add debugging and ->finish() before ->disconnect call
X-Git-Tag: TORRUS_1_0_9~355
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=03eaa0e229c5f5fc68a178d20fb69733db709787

add debugging and ->finish() before ->disconnect call
---

diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index d8c5e0424..f1ba3d2ff 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -408,6 +408,14 @@ sub sqlradius_usergroup_insert { #subroutine, not method
     $sth->execute( $username, $group )
       or die "can't insert into groupname table: ". $sth->errstr;
   }
+  if ( $s_sth->{Active} ) {
+    warn "sqlradius s_sth still active; calling ->finish()";
+    $s_sth->finish;
+  }
+  if ( $sth->{Active} ) {
+    warn "sqlradius sth still active; calling ->finish()";
+    $sth->finish;
+  }
   $dbh->disconnect;
 }