epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Removed references to EPICS_BASE, EPICS_EXTENSIONS, and CTLSYS.

Browse Source
This commit is contained in:
Janet B. Anderson
2008-03-25 22:04:52 +00:00
parent c1512557d5
commit 7a6528cf1c
1 changed files with 2 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/expandVars.pl@
+2 -18
View File
@@ -49,24 +49,8 @@ our @apps = ('TOP');
readRelease("$top/configure/RELEASE", \%vars, \@apps);
expandRelease(\%vars);
# EPICS_BASE and EPICS_EXTENSIONS must exist
$base = abs_path($vars{EPICS_BASE});
print "EPICS_BASE = $base\n" if $opt_d;
die "EPICS_BASE directory '$base' does not exist\n"
unless -d $base;
$extensions = abs_path($vars{EPICS_EXTENSIONS});
print "EPICS_EXTENSIONS = $extensions\n" if $opt_d;
die "EPICS_EXTENSIONS directory '$extensions' does not exist\n"
unless -d $extensions;
# If no CTLSYS entry exists, define it as TOP
if (exists $vars{CTLSYS}) {
$ctlsys = abs_path($vars{CTLSYS});
} else {
$ctlsys = abs_path($top);
$vars{CTLSYS} = $ctlsys;
}
$ctlsys = abs_path($top);
$vars{CTLSYS} = $ctlsys;
print "CTLSYS = $ctlsys\n" if $opt_d;
die "CTLSYS directory '$ctlsys' does not exist\n"
unless -d $ctlsys;