/[cvs]/nfo/perl/libs/Data/Storage/Handler/Tangram.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/Tangram.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Thu Oct 17 00:10:05 2002 UTC revision 1.3 by joko, Thu Oct 17 03:56:55 2002 UTC
# Line 3  Line 3 
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
# Line 36  our $metainfo = { Line 39  our $metainfo = {
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    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed