--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/06/06 03:57:25	1.7
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/06/25 22:56:11	1.8
@@ -1,7 +1,10 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.7 2003/06/06 03:57:25 joko Exp $
+##    $Id: Files.pm,v 1.8 2003/06/25 22:56:11 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Files.pm,v $
+##    Revision 1.8  2003/06/25 22:56:11  joko
+##    dummy "sub getCOREHANDLE"
+##
 ##    Revision 1.7  2003/06/06 03:57:25  joko
 ##    disabled debugging output
 ##
@@ -43,9 +46,9 @@
 sub getMetaInfo {
   my $self = shift;
   $logger->debug( __PACKAGE__ . "->getMetaInfo()"  );
-  return;
+  #return;
   return {
-    'disconnectMethod' => 'disconnect',
+    'disconnectMethod' => 'abc',
   };
 }
 
@@ -55,6 +58,9 @@
   #$self->{COREHANDLE} = 1;
 }
 
+#sub disconnect { }
+sub getCOREHANDLE { }
+
 sub getChildNodes {
   my $self = shift;
   #my @nodes;