* generic/tclIOCmd.c: Revise [open] so that it interprets leading

        zero strings passed as the "permissions" argument as octal numbers,
        even if Tcl itself no longer parses integers in that way.

        * unix/tclUnixFCmd.c:   Revise the "-permissions" [file attribute] so
        that it interprets leading zero strings as octal numbers, even if Tcl
        itself no longer parses integers in that way.

        * generic/tclCompExpr.c:        Corrections to code that produces
        * generic/tclUtil.c:    extended "bad octal" error messages.

        * tests/cmdAH.test:     Test revisions so that tests pass whether or
        * tests/cmdIL.test:     not Tcl parses leading zero strings as octal.
        * tests/compExpr-old.test:
        * tests/compExpr.test:
        * tests/compile.test:
        * tests/expr-old.test:
        * tests/expr.test:
        * tests/incr.test:
        * tests/io.test:
        * tests/lindex.test:
        * tests/link.test:
        * tests/mathop.test:
        * tests/parseExpr.test:
        * tests/set.test:
        * tests/string.test:
        * tests/stringComp.test:

1 files changed, 24 insertions, 1 deletions

diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c
index 18ac99d..36be6eb 100644
--- a/generic/tclCompExpr.c
+++ b/generic/tclCompExpr.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: tclCompExpr.c,v 1.86 2007/08/28 17:43:07 dgp Exp $
+ * RCS: @(#) $Id: tclCompExpr.c,v 1.87 2007/10/15 21:27:48 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -744,6 +744,29 @@ ParseExpr(
 				" or \"%.*s%s(...)\" or ...",
 				(scanned < limit) ? scanned : limit - 3,
 				start, (scanned < limit) ? "" : "...");
+			if (NotOperator(lastParsed)) {
+			    if ((lastStart[0] == '0')
+				    && ((lastStart[1] == 'o')
+				    || (lastStart[1] == 'O'))
+				    && (lastStart[2] >= '0')
+				    && (lastStart[2] <= '9')) {
+				const char *end = lastStart + 2;
+				while (isdigit(*end)) {
+				    end++;
+				}
+				Tcl_Obj *copy = Tcl_NewStringObj(lastStart,
+					end - lastStart);
+				if (TclCheckBadOctal(NULL,
+					Tcl_GetString(copy))) {
+					TclNewLiteralStringObj(post,
+						"(invalid octal number?)");
+				}
+				Tcl_DecrRefCount(copy);
+			    }
+			    scanned = 0;
+			    insertMark = 1;
+			    parsePtr->errorType = TCL_PARSE_BAD_NUMBER;
+			}
 			goto error;
 		    }
 		}