art-2.11-migration.pl
Go to the documentation of this file.
1 use strict;
2 
3 use vars qw(%header_list);
4 
5 BEGIN {
6  %header_list = (
7  "cetlib/coded_exception.h" => "cetlib_except/coded_exception.h",
8  "cetlib/demangle.h" => "cetlib_except/demangle.h",
9  "cetlib/exception.h" => "cetlib_except/exception.h",
10  "cetlib/exception_collector.h" => "cetlib_except/exception_collector.h"
11  );
12 }
13 
14 foreach my $inc (sort keys %header_list) {
15  s&^(\s*#include\s+["<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
16 }