--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/04/18 16:07:53	1.16
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/05/13 07:58:49	1.17
@@ -1,7 +1,11 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Abstract.pm,v 1.16 2003/04/18 16:07:53 joko Exp $
+##    $Id: Abstract.pm,v 1.17 2003/05/13 07:58:49 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Abstract.pm,v $
+##    Revision 1.17  2003/05/13 07:58:49  joko
+##    fix: die if methodname is empty
+##    fixes to log-string
+##
 ##    Revision 1.16  2003/04/18 16:07:53  joko
 ##    just use logger if instantiation successed
 ##
@@ -240,6 +244,11 @@
   }
 #=cut
 
+  if (!$methodname) {
+    die("Methodname is not defined!");
+    return;
+  }
+
 #print "$methodname - 3", "\n";
 
   # try to dispatch method-call to Storage::Handler::*
@@ -268,7 +277,11 @@
     #$lock_AUTOLOAD = 1 if ($methodname eq 'insert');
     if (!$self->{lock_info}->{log_lock}) {
       #print "method: $methodname", "\n";
-      $logger->debug( __PACKAGE__ . "[$self->{metainfo}->{type}]" . "->" . $methodname . "(@_)" );
+      my $type = $self->{metainfo}->{type};
+      $type ||= '';
+      # FIXME!
+      #$logger->debug( __PACKAGE__ . "[$type]" . "->" . $methodname . "(@_)" );
+      $logger->debug( __PACKAGE__ . "[$type]" . "->" . $methodname );
     } else {
       # AUTOLOAD - sub is locked to prevent deep recursions if (e.g.) db-inserts cause log-actions to same db itself
     }