3 use vars qw(%dir_list);
5 "canvas_Utilities" => "canvas",
6 "canvas_Persistency_Common" => "canvas",
7 "canvas_Persistency_Provenance" => "canvas",
8 "cetlib" => "cetlib cetlib_except"
11 foreach my $lib (sort keys %dir_list) {
12 next if m&add_subdirectory&i;
13 next if m&simple_plugin&i;
14 next if m&SUBDIRNAME&i;
16 next if m&cetlib cetlib_except&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;
21 s/\$\{CETLIB\}/cetlib cetlib_except/g;