Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | [Bug 2482573] improve handling of glob for tclprocvfs |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
85d3b01734ac9b76821db674c2c09b53 |
User & Date: | patthoyts 2009-01-22 15:24:33.000 |
Context
2009-01-22
| ||
16:03 | Fix the vfs::crc function and test to conform to its actual use in the zipvfs code. check-in: b5732950ca user: patthoyts tags: trunk | |
15:24 | [Bug 2482573] improve handling of glob for tclprocvfs check-in: 85d3b01734 user: patthoyts tags: trunk | |
15:15 | Fix for [Bug 1533748] (./ prefixed file names) and tests for [Bug 1011492] (zip files with preface data) check-in: 0a72685718 user: patthoyts tags: trunk | |
Changes
Changes to library/tclprocvfs.tcl.
︙ | ︙ | |||
111 112 113 114 115 116 117 | proc vfs::ns::matchindirectory {ns path actualpath pattern type} { ::vfs::log "matchindirectory $path $actualpath $pattern $type" set res [list] set ns ::[string trim $ns :] set nspath ${ns}::${path} | > | | 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | proc vfs::ns::matchindirectory {ns path actualpath pattern type} { ::vfs::log "matchindirectory $path $actualpath $pattern $type" set res [list] set ns ::[string trim $ns :] set nspath ${ns}::${path} if {![namespace exists $nspath]} {return {}} set slash 1 if {[::vfs::matchDirectories $type]} { # add matching directories to $res if {[string length $pattern]} { eval [linsert [namespace children $nspath $pattern] 0 lappend res] } elseif {[namespace exists $nspath]} { lappend res $nspath } |
︙ | ︙ |