summaryrefslogtreecommitdiffstats
path: root/generic/tclUtil.c
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-12-04 06:28:05 (GMT)
committerhobbs <hobbs>1999-12-04 06:28:05 (GMT)
commit846d269ebe72880a8a69666b33cb162d4eb3b3bc (patch)
tree2888ba137630eba108a0a4dc3f1f35df6b9488b1 /generic/tclUtil.c
parent8bd88ae75ebf3df12baf9472747baf999a089c8c (diff)
downloadtcl-846d269ebe72880a8a69666b33cb162d4eb3b3bc.zip
tcl-846d269ebe72880a8a69666b33cb162d4eb3b3bc.tar.gz
tcl-846d269ebe72880a8a69666b33cb162d4eb3b3bc.tar.bz2
check for whitespace after bad octals
Diffstat (limited to 'generic/tclUtil.c')
-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) {