--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2002/12/01 04:45:38	1.4
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2002/12/01 22:19:33	1.5
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: Abstract.pm,v 1.4 2002/12/01 04:45:38 joko Exp $
+#  $Id: Abstract.pm,v 1.5 2002/12/01 22:19:33 joko Exp $
 #
 #  $Log: Abstract.pm,v $
+#  Revision 1.5  2002/12/01 22:19:33  joko
+#  + just disconnect if COREHANDLE exists
+#
 #  Revision 1.4  2002/12/01 04:45:38  joko
 #  + sub eraseAll
 #  + sub createDb
@@ -133,7 +136,7 @@
 
     # call "disconnect" or alike on COREHANDLE
     # was: $self->{COREHANDLE}->disconnect();
-    $disconnectMethod && ( $self->{COREHANDLE}->$disconnectMethod() );
+    $disconnectMethod && $self->{COREHANDLE} && ( $self->{COREHANDLE}->$disconnectMethod() );
 
     undef $self->{COREHANDLE};
   }