Mercurial > hg > Gears > Gears
changeset 892:3fa258d0891a
load metapm
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 26 Jan 2021 14:36:33 +0900 |
parents | 76a8f578091d |
children | e656a5d80d1c |
files | src/parallel_execution/generate_stub.pl |
diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl Tue Jan 26 14:03:45 2021 +0900 +++ b/src/parallel_execution/generate_stub.pl Tue Jan 26 14:36:33 2021 +0900 @@ -5,6 +5,7 @@ use Getopt::Long; use File::Path qw/make_path/; use File::Basename qw/basename dirname/; +use Module::Load qw/load/; #use DDP { deparse => 1}; use FindBin; @@ -603,6 +604,7 @@ my ($filename, $inputCbCFile) = @_; open my $in,"<",$filename or die("can't open $filename $!"); + findMetaPM($filename); my $fn; if ($opt_o) { @@ -1339,5 +1341,15 @@ } sub findMetaPM { + my ($filename) = @_; + my $project_dir_name = dirname $filename; + my $metapm = "$FindBin::Bin/$project_dir_name/meta.pm"; + unless (-f $metapm) { + #print "[info] not found $metapm\n"; + return; + } + load $metapm; + print "[info] load $metapm\n"; + print STDERR meta->hello(); }