3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.3 2002/10/17 03:56:55 joko |
7 |
|
# + bugfix: trapped eval error |
8 |
|
# |
9 |
# Revision 1.2 2002/10/17 00:10:05 joko |
# Revision 1.2 2002/10/17 00:10:05 joko |
10 |
# + removed dependency from tsobj.pm, schema is now independent |
# + removed dependency from tsobj.pm, schema is now independent |
11 |
# + sub getNewPerlObjectByPkgName |
# + sub getNewPerlObjectByPkgName |
39 |
sub getNewPerlObjectByPkgName { |
sub getNewPerlObjectByPkgName { |
40 |
my $pkgname = shift; |
my $pkgname = shift; |
41 |
my $args = shift; |
my $args = shift; |
42 |
|
$logger->debug( __PACKAGE__ . "->getNewPerlObjectByPkgName( pkgname $pkgname args $args )" ); |
43 |
my $evstring = "use $pkgname;"; |
my $evstring = "use $pkgname;"; |
44 |
eval($evstring); |
eval($evstring); |
45 |
|
$@ && $logger->error( __PACKAGE__ . ':' . __LINE__ . " Error in eval: " . $@ ); |
46 |
return $pkgname->new($args); |
return $pkgname->new($args); |
47 |
} |
} |
48 |
|
|