3 use vars qw(%dir_list);
5 "IFBEAM" => "ifbeam::ifbeam",
7 "IFDH" => "ifdh::ifdh",
8 "NUCONDB" => "nucondb::nucondb"
11 foreach my $lib (sort keys %dir_list) {
12 next if m&add_subdirectory&i;
13 next if m&find_ups_product&i;
14 next if m&cet_find_library&i;
15 next if m&simple_plugin&i;
16 next if m&create_version_variables&i;
17 next if m&SUBDIRNAME&i;
19 next if m&LIBRARY_NAME&i;
21 next if m&ifdh::ifdh&i;
23 next if m&ifbeam::ifbeam&i;
24 next if m&nucondb::nucondb&i;
25 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
26 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
30 s&\$\{IFDH\}&ifdh::ifdh&;
31 s&\$\{ifdh::ifdh\}&ifdh::ifdh&;
32 s&\$\{IFBEAM\}&ifbeam::ifbeam&;
33 s&\$\{ifbeam::ifbeam\}&ifbeam::ifbeam&;
34 s&\$\{WDA\}&wda::wda&;
35 s&\$\{wda::wda\}&wda::wda&;
36 s&\$\{NUCONDB\}&nucondb::nucondb&;
37 s&\$\{nucondb::nucondb\}&nucondb::nucondb&;