--- 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/06 03:40:57 1.18 @@ -1,7 +1,10 @@ ## ------------------------------------------------------------------------ -## $Id: Abstract.pm,v 1.17 2003/05/13 07:58:49 joko Exp $ +## $Id: Abstract.pm,v 1.18 2003/06/06 03:40:57 joko Exp $ ## ------------------------------------------------------------------------ ## $Log: Abstract.pm,v $ +## 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 @@ -244,10 +247,12 @@ } #=cut +=pod if (!$methodname) { die("Methodname is not defined!"); return; } +=cut #print "$methodname - 3", "\n";