summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclUtil.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 8a7fcec..d4dc7b0 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUtil.c,v 1.14 1999/12/04 06:15:42 hobbs Exp $
+ * RCS: @(#) $Id: tclUtil.c,v 1.15 1999/12/04 06:28:05 hobbs Exp $
*/
#include "tclInt.h"
@@ -2296,6 +2296,9 @@ TclCheckBadOctal(interp, value)
while (isdigit(UCHAR(*p))) { /* INTL: digit. */
p++;
}
+ while (isspace(UCHAR(*p))) { /* INTL: ISO space. */
+ p++;
+ }
if (*p == '\0') {
/* Reached end of string */
if (interp != NULL) {