fix_headers_larg4.pl File Reference

Go to the source code of this file.

Functions
use vars	qw (%subdir_list)
foreach my	$inc (sort keys%header_list)

Variables
use	strict
	BEGIN

Function Documentation

foreach my $inc

(

sort keys%

header_list

)

Definition at line 45 of file fix_headers_larg4.pl.

                                         {
  s&^(\s*#include\s+["<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
  s&^(\s*#include\s+["<]GENIE/)\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
}

use vars qw

(

%

subdir_list

)

Variable Documentation

BEGIN

Definition at line 7 of file fix_headers_larg4.pl.

use strict

Definition at line 1 of file fix_headers_larg4.pl.