--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/10/17 00:10:05	1.2
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/10/17 03:56:55	1.3
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: Tangram.pm,v 1.2 2002/10/17 00:10:05 joko Exp $
+#  $Id: Tangram.pm,v 1.3 2002/10/17 03:56:55 joko Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.3  2002/10/17 03:56:55  joko
+#  + bugfix: trapped eval error
+#
 #  Revision 1.2  2002/10/17 00:10:05  joko
 #  + removed dependency from tsobj.pm, schema is now independent
 #  + sub getNewPerlObjectByPkgName
@@ -36,8 +39,10 @@
 sub getNewPerlObjectByPkgName {
   my $pkgname = shift;
   my $args = shift;
+  $logger->debug( __PACKAGE__ . "->getNewPerlObjectByPkgName( pkgname $pkgname args $args )" );
   my $evstring = "use $pkgname;";
   eval($evstring);
+  $@ && $logger->error( __PACKAGE__ . ':' . __LINE__ . " Error in eval: " .  $@ );
   return $pkgname->new($args);
 }