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

no need to search for perl modules under bin/

Browse Source
This commit is contained in:
Michael Davidsaver
2018-12-31 10:31:48 -08:00
parent d7841f407a
commit d38fcd5247
17 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/ca/src/perl/capr.pl
View File

@@ -10,7 +10,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use Getopt::Std;

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

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

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

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

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

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

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

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

2
modules/database/src/tools/dbExpand.pl
View File

@@ -12,7 +12,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use DBD;

2
modules/database/src/tools/dbdExpand.pl
View File

@@ -10,7 +10,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use DBD;

2
modules/database/src/tools/dbdReport.pl
View File

@@ -8,7 +8,7 @@
#*************************************************************************
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use DBD;

2
modules/database/src/tools/dbdToHtml.pl
View File

@@ -10,7 +10,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use DBD;

2
modules/database/src/tools/dbdToMenuH.pl
View File

@@ -8,7 +8,7 @@
#*************************************************************************
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use EPICS::Getopts;

2
modules/database/src/tools/dbdToRecordtypeH.pl
View File

@@ -8,7 +8,7 @@
#*************************************************************************
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use EPICS::Getopts;

2
modules/database/src/tools/registerRecordDeviceDriver.pl
View File

@@ -12,7 +12,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use DBD;

2
modules/libcom/src/env/bldEnvData.pl vendored
View File

@@ -14,7 +14,7 @@
use strict;
use FindBin qw($Bin);
use lib ($Bin, "$Bin/../../lib/perl");
use lib ("$Bin/../../lib/perl");
no lib $Bin;
use Getopt::Std;

2
src/template/base/makeBaseApp.pl
View File

@@ -3,7 +3,7 @@
# Authors: Ralph Lange, Marty Kraimer, Andrew Johnson and Janet Anderson
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl", $Bin);
use lib ("$Bin/../../lib/perl");
use Cwd;
use Getopt::Std;

2
src/tools/convertRelease.pl
View File

@@ -19,7 +19,7 @@ use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl", $Bin);
use lib ("$Bin/../../lib/perl");
use EPICS::Path;
use EPICS::Release;

2
src/tools/expandVars.pl
View File

@@ -10,7 +10,7 @@
use strict;
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl", $Bin);
use lib ("$Bin/../../lib/perl");
use EPICS::Getopts;
use EPICS::Path;

2
src/tools/fullPathName.pl
View File

@@ -17,7 +17,7 @@ use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;
use FindBin qw($Bin);
use lib ("$Bin/../../lib/perl", $Bin);
use lib ("$Bin/../../lib/perl");
use EPICS::Path;