--- nfo/perl/libs/libdb.pm	2002/12/01 22:13:17	1.7
+++ nfo/perl/libs/libdb.pm	2002/12/12 02:48:58	1.8
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: libdb.pm,v 1.7 2002/12/01 22:13:17 joko Exp $
+##    $Id: libdb.pm,v 1.8 2002/12/12 02:48:58 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: libdb.pm,v $
+##    Revision 1.8  2002/12/12 02:48:58  joko
+##    + played with fixing disconnectTarget
+##
 ##    Revision 1.7  2002/12/01 22:13:17  joko
 ##    + minor bugfix?
 ##
@@ -47,6 +50,7 @@
 
 use libp qw( croak );
 use DBI;
+use Data::Dumper;
 
 use constant SQL_INSERT => 10;
 use constant SQL_UPDATE => 11;
@@ -160,13 +164,17 @@
 
 sub disconnectTarget {
   #my $dbmeta = shift;
+  #print "disc\n";
   #croak "please supply a \"dbmeta\"-hash" if (!$dbmeta);
   #$dbmeta = patch_dbmeta($dbmeta);
   #$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect();
   my $dbmeta = $dbmeta_ref_cache;
-  $dbmeta->{dbh} && $dbmeta->{dbh}->disconnect();
+  #print Dumper($dbmeta);
+  #$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect();
+  $dbmeta->{dbh}->disconnect();
   undef($dbmeta->{dbh});
-  #undef($dbmeta_ref_cache);
+  undef($dbmeta);
+  undef($dbmeta_ref_cache);
 }
 
 sub sendSql {