Overview
Comment: | Improved child detection in the face of file name mangaling |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
30c469fcf79e7c29a877730bd41fd380 |
User & Date: | rkeene on 2019-09-20 17:28:10 |
Other Links: | manifest | tags |
Context
2019-09-20
| ||
17:49 | Fix bug where children were wrapped and string concatencated rather than adding new items check-in: d961175fd9 user: rkeene tags: trunk | |
17:28 | Improved child detection in the face of file name mangaling check-in: 30c469fcf7 user: rkeene tags: trunk | |
17:10 | Added a script that uses a random filename for every input file check-in: c8a4c9f28e user: rkeene tags: trunk | |
Changes
Modified lib/xvfs/xvfs.tcl from [13bdfa17c6] to [5097fc8869].
︙ | |||
164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 | + - + - - - + + + + + + + + + + + | foreach file [glob -nocomplain -tails -directory $workingDirectory *] { if {$file in {. ..}} { continue } set inputFile [file join $workingDirectory $file] set outputFile [file join $outputDirectory [encoding convertto utf-8 $file]] set subDirectoryName [file join $outputDirectory $file] if {[info command ::xvfs::callback::setOutputFileName] ne ""} { set outputFile [::xvfs::callback::setOutputFileName $file $workingDirectory $inputFile $outputDirectory $outputFile] if {$outputFile eq "/"} { continue } } unset -nocomplain fileInfo catch { file lstat $inputFile fileInfo } if {![info exists fileInfo]} { puts stderr "warning: Unable to access $inputFile, skipping" } |
︙ |