epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

restore ModuleDirs in caPerlApp

Browse Source
This commit is contained in:
Michael Davidsaver
2019-07-09 18:42:19 -07:00
parent ac87fbac85
commit 1a94376c19
4 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modules/ca/src/template/top/caPerlApp/caget.pl
View File

@@ -4,8 +4,9 @@ use strict;
# This construct sets @INC to search lib/perl of all RELEASE entries
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl");
use lib ($Bin, "$Bin/../../lib/perl");
use _APPNAME_ModuleDirs;
no lib $Bin;
use Getopt::Std;
use Scalar::Util qw(looks_like_number);

3
modules/ca/src/template/top/caPerlApp/cainfo.pl
View File

@@ -4,8 +4,9 @@ use strict;
# This construct sets @INC to search lib/perl of all RELEASE entries
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl");
use lib ($Bin, "$Bin/../../lib/perl");
use _APPNAME_ModuleDirs;
no lib $Bin;
use Getopt::Std;
use CA;

3
modules/ca/src/template/top/caPerlApp/camonitor.pl
View File

@@ -4,8 +4,9 @@ use strict;
# This construct sets @INC to search lib/perl of all RELEASE entries
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl");
use lib ($Bin, "$Bin/../../lib/perl");
use _APPNAME_ModuleDirs;
no lib $Bin;
use Getopt::Std;
use Scalar::Util qw(looks_like_number);

3
modules/ca/src/template/top/caPerlApp/caput.pl
View File

@@ -4,8 +4,9 @@ use strict;
# This construct sets @INC to search lib/perl of all RELEASE entries
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl");
use lib ($Bin, "$Bin/../../lib/perl");
use _APPNAME_ModuleDirs;
no lib $Bin;
use Getopt::Std;
use CA;