Tcl Source Code

Artifact ad8c4cc8215bf6d9d1c689bf416ce0a1d53feac4:

proc f {} {
    set d [glob -nocomplain /*/]
    set d [lindex $d 0]
    #set d [format %s $d]   # uncommenting this line makes both 8.4 and 8.5 work
    puts stderr [list $d [file tail $d]]
}

f