fix_headers_art211.pl

Go to the documentation of this file.

use strict;

use vars qw(%subdir_list);
use vars qw(%header_list);

# explicit headers to avoid conflicts with experiment code
BEGIN { %header_list = (
        "cetlib/coded_exception.h" => "cetlib_except/coded_exception.h",
        "cetlib/demangle.h" => "cetlib_except/demangle.h",
        "cetlib/exception.h" => "cetlib_except/exception.h",
        "cetlib/exception_collector.h" => "cetlib_except/exception_collector.h"
                  ); }

foreach my $inc (sort keys %header_list) {
  s&^(\s*#include\s+["<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
}