From 846d269ebe72880a8a69666b33cb162d4eb3b3bc Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 4 Dec 1999 06:28:05 +0000
Subject: check for whitespace after bad octals

---
 generic/tclUtil.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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) {
-- 
cgit v0.12