From 7a6528cf1cc58c206c32ab06c055e52ccba44871 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Tue, 25 Mar 2008 22:04:52 +0000
Subject: [PATCH] Removed references to EPICS_BASE, EPICS_EXTENSIONS, and
 CTLSYS.

---
 src/tools/expandVars.pl@ | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

diff --git a/src/tools/expandVars.pl@ b/src/tools/expandVars.pl@
index c7a7ed5b2..aa611aa0a 100644
--- a/src/tools/expandVars.pl@
+++ b/src/tools/expandVars.pl@
@@ -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;