* 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, 6 insertions, 10 deletions

diff --git a/tests/parseExpr.test b/tests/parseExpr.test
index 3a79fcb..66fdfcc 100644
--- a/tests/parseExpr.test
+++ b/tests/parseExpr.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parseExpr.test,v 1.27 2007/08/06 20:21:00 dgp Exp $
+# RCS: @(#) $Id: parseExpr.test,v 1.28 2007/10/15 21:27:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -590,7 +590,7 @@ test parseExpr-16.5 {GetLexeme procedure, integer lexeme too big} testexprparser
     testexprparser {12345678901234567890} -1
 } {- {} 0 subexpr 12345678901234567890 1 text 12345678901234567890 0 {}}
 test parseExpr-16.6 {GetLexeme procedure, bad integer lexeme} -constraints testexprparser -body {
-    testexprparser {0999} -1
+    testexprparser {0o999} -1
 } -returnCodes error -match glob -result {*invalid octal number*}
 test parseExpr-16.7 {GetLexeme procedure, double lexeme} testexprparser {
     testexprparser {0.999} -1
@@ -762,15 +762,11 @@ test parseExpr-21.6 {error messages} -body {
 } -returnCodes error -result {missing operator at _@_
 in expression "0 _@_0"}
 test parseExpr-21.7 {error messages} -body {
-    expr {08}
-} -returnCodes error -result {missing operator at _@_
-in expression "0_@_8";
-looks like invalid octal number}
+    expr {0o8}
+} -returnCodes error -match glob -result {*invalid octal number*}
 test parseExpr-21.8 {error messages} -body {
-    expr {08x}
-} -returnCodes error -result {missing operator at _@_
-in expression "0_@_8x";
-looks like invalid octal number}
+    expr {0o8x}
+} -returnCodes error -match glob -result {*invalid octal number*}
 test parseExpr-21.9 {error messages} -body {
     expr {"} 
 } -returnCodes error -result {missing "