#2817 file normalize returns wrong path

[Ulrich Ring]

Run this example. It prints "/tmp/foo/bar" instead of
"/tmp/xxx/bar" .

#
-----------------------------------------------------------
cd /tmp ;# working directory
file delete -force foo xxx ;# make clean
file mkdir foo/bar ;# some directories
file link xxx foo ;# xxx -> foo

set target xxx/bar ;# store path of
subdirectory in variable
file isdirectory $target ;# check xxx/bar
file delete xxx ;# now delete symlink
file copy foo xxx ;# recreate as copy of bar

puts [file normalize $target]
#
----------------------------------------------------------

Comments:

(1) uncomment "file isdirectory ..." and it's OK
(2) change to "file isdirectory xxx/bar" and it's OK

I assume that the path /tmp/foo/bar is cached in the
variable "target" (in Tcl_Obj's internal representation).

Having "string length $target" _after_ "file
isdirectory $target"
changes variable to string type and things are OK.

-----
Ulrich Ring - ur@daveg.com

[Don Porter]

Logged In: YES
user_id=80530

Looks like a Duplicate of 953284

[Ulrich Ring]

Logged In: YES
user_id=123371

BTW:

I'm not able to reproduce the bug with tcl8.5a1.