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

diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index c9796db..3ededd3 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.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: cmdIL.test,v 1.33 2007/03/13 17:34:04 dgp Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.34 2007/10/15 21:27:49 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -195,8 +195,8 @@ test cmdIL-3.10 {SortCompare procedure, -integer option} {
     list [catch {lsort -integer {3 q}} msg] $msg
 } {1 {expected integer but got "q"}}
 test cmdIL-3.11 {SortCompare procedure, -integer option} {
-    lsort -integer {35 21 0x20 30 023 100 8}
-} {8 023 21 30 0x20 35 100}
+    lsort -integer {35 21 0x20 30 0o23 100 8}
+} {8 0o23 21 30 0x20 35 100}
 test cmdIL-3.12 {SortCompare procedure, -real option} {
     list [catch {lsort -real {6...4 3}} msg] $msg
 } {1 {expected floating-point number but got "6...4"}}
@@ -247,8 +247,8 @@ test cmdIL-3.18 {SortCompare procedure, -command option} -body {
     rename cmp ""
 } -result {48 36 35 22 21 18 6}
 test cmdIL-3.19 {SortCompare procedure, -decreasing option} {
-    lsort -decreasing -integer {35 21 0x20 30 023 100 8}
-} {100 35 0x20 30 21 023 8}
+    lsort -decreasing -integer {35 21 0x20 30 0o23 100 8}
+} {100 35 0x20 30 21 0o23 8}
 
 test cmdIL-4.1 {DictionaryCompare procedure, numerics, leading zeros} {
     lsort -dictionary {a003b a03b}