pass epics base to perl instead of using env

epics-modules · Dec 12, 2023 · 95fe226 · 95fe226
1 parent 1263c1b
commit 95fe226
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/configure/RULES.ioc b/configure/RULES.ioc
@@ -4,4 +4,4 @@ include $(CONFIG)/RULES.ioc
 modules.lua: \
     $(wildcard $(TOP)/configure/RELEASE*) \
     $(wildcard $(TOP)/configure/CONFIG_SITE*) | $(INSTALL_BIN)
-	$(PERL) $(abspath $(TOP)/bin/$(EPICS_HOST_ARCH)/GenLuaModules.pl) -a $(ARCH) -t $(IOCS_APPL_TOP) $@
+	$(PERL) -I$(EPICS_BASE)/bin/perl $(abspath $(TOP)/bin/$(EPICS_HOST_ARCH)/GenLuaModules.pl) -a $(ARCH) -t $(IOCS_APPL_TOP) $@
diff --git a/xxxApp/src/GenLuaModules.pl b/xxxApp/src/GenLuaModules.pl
@@ -8,9 +8,6 @@
 use Getopt::Std;
 $Getopt::Std::STANDARD_HELP_VERSION = 1;
 
-use FindBin qw($Bin);
-use lib ("$EPICS_BASE/lib/perl", $Bin);
-
 use EPICS::Path;
 use EPICS::Release;