--- nfo/perl/libs/libp.pm	2002/12/19 16:27:17	1.11
+++ nfo/perl/libs/libp.pm	2002/12/22 14:15:02	1.12
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.11 2002/12/19 16:27:17 joko Exp $
+#  $Id: libp.pm,v 1.12 2002/12/22 14:15:02 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.12  2002/12/22 14:15:02  joko
+#  + sub mkObject
+#
 #  Revision 1.11  2002/12/19 16:27:17  joko
 #  +- renamed 'cmd' to 'run_cmd'
 #
@@ -62,6 +65,7 @@
     deep_copy
     getNewPerlObjectByPkgName
     run_cmd run_cmds
+    mkObject
 );
 
 use Data::Dumper;
@@ -238,6 +242,17 @@
   return $pkgname->new($args);
 }
 
+sub mkObject {
+  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 $evstring: " .  $@ );
+  $@ && print( __PACKAGE__ . ':' . __LINE__ . " Error in eval \"$evstring\": " .  $@ );
+  return $pkgname->new(@_);
+}
+
 sub run_cmd {
   my $cmd = shift;
   $cmd = 'perl ' . $cmd;