3 use vars qw(%dir_list);
5 "nutools_EventGeneratorBase_GENIE" => "nugen_EventGeneratorBase_GENIE",
6 "nutools_EventGeneratorBase_GiBUU" => "nugen_EventGeneratorBase_GiBUU",
7 "nutools_NuReweight" => "nugen_NuReweight",
8 "nutools_NuReweight_art" => "nugen_NuReweight_art",
9 "nutools_NuReweight_art_ReweightAna_module" => "nugen_NuReweight_art_ReweightAna_module",
12 foreach my $lib (sort keys %dir_list) {
13 next if m&add_subdirectory&i;
14 next if m&simple_plugin&i;
15 next if m&SUBDIRNAME&i;
17 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
18 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;