Changeset 4651 for trunk/tools

Timestamp:

Nov 21, 2000, 5:34:25 AM (25 years ago)

Author:

bird

Message:

Corrected bug. "." was not supported.

File:

• trunk/tools/bin/DoDirs.cmd (modified) (2 diffs)

trunk/tools/bin/DoDirs.cmd

@@ -1 @@
-/* $Id: DoDirs.cmd,v 1.1 2000-11-19 08:22:06 bird Exp $
+/* $Id: DoDirs.cmd,v 1.2 2000-11-21 04:34:25 bird Exp $
  *
  * Rexx script which executes a given command in each of the given
@@ -26 +26 @@
 iRc = 0;                                /* Returncode */
 iStart = 1;                             /* Subdirectory Index */
-do while (iStart < length(sDirs))
+do while (iStart <= length(sDirs))
     iEnd = pos(' ', sDirs, iStart);
-    if (iEnd <= 0 & iStart < length(sDirs)) then
+    if (iEnd <= 0 & iStart <= length(sDirs)) then
         iEnd = length(sDirs) + 1;