Go to the source code of this file.
|
| use vars | qw (%subdir_list) |
| |
| foreach my | $inc (sort keys%subdir_list) |
| |
| foreach my $inc |
( |
sort keys% |
subdir_list | ) |
|
Definition at line 100 of file fix_headers.pl.
101 s&^(
\s*#
include\s+[
"<])\Q$inc\E(/.*)&${1}$subdir_list{$inc}${2}& and last;
103 foreach my $inc (sort keys %header_list) {
104 s&^(\s*#include\s+["<])\Q
$inc\
E(.*)&${1}$header_list{
$inc}${2}&
and last;
return match has_match and(match.match_pdg==11 or match.match_pdg==-11)
then echo File list $list not found else cat $list while read file do echo $file sed s
| use vars qw |
( |
% |
subdir_list | ) |
|
1.8.5