3 use vars qw(%dir_list);
5 "larana_Calorimetry_BezierCalorimetry_module" => "larreco_Calorimetry_BezierCalorimetry_module",
6 "larana_Calorimetry_Calorimetry_module" => "larreco_Calorimetry_Calorimetry_module",
7 "larana_Calorimetry_GeneralCalorimetry_module" => "larreco_Calorimetry_GeneralCalorimetry_module",
8 "larana_Calorimetry_PrintCalorimetry_module" => "larreco_Calorimetry_PrintCalorimetry_module",
9 "larana_Calorimetry_TrackCalorimetry_module" => "larreco_Calorimetry_TrackCalorimetry_module",
10 "larana_OpticalDetector_LEDCalibrationAna_module" => "larreco_OpticalDetector_LEDCalibrationAna_module",
11 "larana_Calorimetry" => "larreco_Calorimetry",
12 "lardata_AnalysisAlg" => "larreco_Calorimetry",
13 "lardata_RecoObjects" => "lardata_RecoObjects larreco_Deprecated",
14 "larsim_Simulation" => "larsim_Simulation nutools_ParticleNavigation"
17 foreach my $lib (sort keys %dir_list) {
18 next if m&add_subdirectory&i;
19 next if m&simple_plugin&i;
20 next if m&SUBDIRNAME&i;
22 next if m&lardata_RecoObjects larreco_Deprecated&i;
23 next if m&larsim_Simulation nutools_ParticleNavigation&i;
24 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
25 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;