fix_fcl.pl File Reference

Go to the source code of this file.

Functions
use vars	qw (%dir_list)
foreach my	$lib (sort keys%dir_list)

Variables
use	strict
	BEGIN

Function Documentation

foreach my $lib

(

sort keys%

dir_list

)

Definition at line 8 of file fix_fcl.pl.

                                      {
  #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
  s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
}

use vars qw

(

%

dir_list

)

Variable Documentation

BEGIN

Initial value:

{ %dir_list = (
                        "gaus" => "gaus(0)"
                       )

Definition at line 4 of file fix_fcl.pl.

use strict

Definition at line 1 of file fix_fcl.pl.