--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/05/13 07:58:49	1.17
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/06/25 22:53:58	1.19
@@ -1,7 +1,13 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Abstract.pm,v 1.17 2003/05/13 07:58:49 joko Exp $
+##    $Id: Abstract.pm,v 1.19 2003/06/25 22:53:58 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Abstract.pm,v $
+##    Revision 1.19  2003/06/25 22:53:58  joko
+##    don't disconnect automagically
+##
+##    Revision 1.18  2003/06/06 03:40:57  joko
+##    disabled autovivifying of arguments as attributes
+##
 ##    Revision 1.17  2003/05/13 07:58:49  joko
 ##    fix: die if methodname is empty
 ##    fixes to log-string
@@ -154,7 +160,7 @@
   # handle meta data
     #my $metainfo = $self->getMetaInfo($class);
     my $metainfo = $self->getMetaInfo();
-    if (!$metainfo->{disconnectMethod}) { $metainfo->{disconnectMethod} = 'disconnect'; }
+    #if (!$metainfo->{disconnectMethod}) { $metainfo->{disconnectMethod} = 'disconnect'; }
     # type?
     $invocant =~ s/Data::Storage::Handler:://;
     $metainfo->{type} = $invocant;
@@ -244,10 +250,12 @@
   }
 #=cut
 
+=pod
   if (!$methodname) {
     die("Methodname is not defined!");
     return;
   }
+=cut
 
 #print "$methodname - 3", "\n";