3 use vars qw(%dir_list);
5 "lardata_RecoBaseArt_Dumpers" => "lardata_ArtDataHelper_Dumpers",
6 "lardata_RecoBaseArt" => "lardata_ArtDataHelper"
9 foreach my $lib (sort keys %dir_list) {
10 next if m&add_subdirectory&i;
11 next if m&simple_plugin&i;
12 next if m&SUBDIRNAME&i;
14 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
15 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;