Changeset 9168 for trunk/tools

Timestamp:

Aug 29, 2002, 1:49:59 PM (23 years ago)

Author:

bird

Message:

Corrected bug in AddEnv.

File:

• trunk/tools/bin/buildenv.cmd (modified) (4 diffs)

trunk/tools/bin/buildenv.cmd

@@ -1 @@
-/* $Id: buildenv.cmd,v 1.19 2002-08-29 03:15:49 bird Exp $
+/* $Id: buildenv.cmd,v 1.20 2002-08-29 11:49:59 bird Exp $
  *
  * This is the master tools environment script. It contains environment
@@ -27 +27 @@
      * Version
      */
-    sVersion = '1.0.3 [2002-08-28]';
+    sVersion = '1.0.4 [2002-08-29]';
 
     /*
@@ -1224 +1224 @@
     sOrgEnvVar = EnvGet(sEnvVar);
 
+    if (sOrgEnvVar <> '') then
+    do
     /* Remove previously sToAdd if exists. (Changing sOrgEnvVar). */
     i = pos(translate(sToAdd), translate(sOrgEnvVar));
@@ -1232 +1234 @@
     if (substr(sOrgEnvVar, length(sOrgEnvVar), 1) <> sSeparator) then
         sOrgEnvVar = sOrgEnvVar || sSeparator;
+    end
 
     /* set environment */