[freeside-commits] freeside/FS/FS/part_export sqlradius.pm, 1.44, 1.45

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv6960

Modified Files:
	sqlradius.pm 
Log Message:
add debugging and ->finish() before ->disconnect call

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -w -d -r1.44 -r1.45
--- sqlradius.pm	5 Aug 2010 04:17:07 -0000	1.44
+++ sqlradius.pm	24 Aug 2010 18:57:11 -0000	1.45
@@ -408,6 +408,14 @@
     $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;
 }