3 use vars qw(%subdir_list);
4 use vars qw(%header_list);
6 # explicit headers to avoid conflicts with experiment code
7 BEGIN { %header_list = (
8 "larpandora/LArPandoraObjects/PFParticleMetadata.h" => "lardataobj/RecoBase/PFParticleMetadata.h",
9 "larsim/LArG4/ParticleFilters.h" => "larcorealg/CoreUtils/ParticleFilters.h"
12 foreach my $inc (sort keys %header_list) {
13 s&^(\s*#include\s+["<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
16 # also deal with namespace
17 s/larg4::PositionInVolumeFilter/util::PositionInVolumeFilter/g;
18 s/larpandoraobj::PFParticleMetadata/recob::PFParticleMetadata/g;