--- nfo/perl/libs/libdb.pm	2002/11/29 04:53:39	1.6
+++ nfo/perl/libs/libdb.pm	2002/12/01 22:13:17	1.7
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: libdb.pm,v 1.6 2002/11/29 04:53:39 joko Exp $
+##    $Id: libdb.pm,v 1.7 2002/12/01 22:13:17 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: libdb.pm,v $
+##    Revision 1.7  2002/12/01 22:13:17  joko
+##    + minor bugfix?
+##
 ##    Revision 1.6  2002/11/29 04:53:39  joko
 ##    + hash2Sql now knows about SQL_SELECT
 ##
@@ -162,7 +165,8 @@
   #$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect();
   my $dbmeta = $dbmeta_ref_cache;
   $dbmeta->{dbh} && $dbmeta->{dbh}->disconnect();
-  undef($dbmeta_ref_cache);
+  undef($dbmeta->{dbh});
+  #undef($dbmeta_ref_cache);
 }
 
 sub sendSql {