/[cvs]/nfo/perl/libs/libp.pm
ViewVC logotype

Diff of /nfo/perl/libs/libp.pm

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

revision 1.11 by joko, Thu Dec 19 16:27:17 2002 UTC revision 1.12 by joko, Sun Dec 22 14:15:02 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.12  2002/12/22 14:15:02  joko
7    #  + sub mkObject
8    #
9  #  Revision 1.11  2002/12/19 16:27:17  joko  #  Revision 1.11  2002/12/19 16:27:17  joko
10  #  +- renamed 'cmd' to 'run_cmd'  #  +- renamed 'cmd' to 'run_cmd'
11  #  #
# Line 62  our @EXPORT_OK = qw( Line 65  our @EXPORT_OK = qw(
65      deep_copy      deep_copy
66      getNewPerlObjectByPkgName      getNewPerlObjectByPkgName
67      run_cmd run_cmds      run_cmd run_cmds
68        mkObject
69  );  );
70    
71  use Data::Dumper;  use Data::Dumper;
# Line 238  sub getNewPerlObjectByPkgName { Line 242  sub getNewPerlObjectByPkgName {
242    return $pkgname->new($args);    return $pkgname->new($args);
243  }  }
244    
245    sub mkObject {
246      my $pkgname = shift;
247      #my $args = shift;
248      #$logger->debug( __PACKAGE__ . "->getNewPerlObjectByPkgName( pkgname $pkgname args $args )" );
249      my $evstring = "use $pkgname;";
250      eval($evstring);
251      #$@ && $logger->error( __PACKAGE__ . ':' . __LINE__ . " Error in eval $evstring: " .  $@ );
252      $@ && print( __PACKAGE__ . ':' . __LINE__ . " Error in eval \"$evstring\": " .  $@ );
253      return $pkgname->new(@_);
254    }
255    
256  sub run_cmd {  sub run_cmd {
257    my $cmd = shift;    my $cmd = shift;
258    $cmd = 'perl ' . $cmd;    $cmd = 'perl ' . $cmd;
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed