diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-28 09:49:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-28 09:49:10 (GMT) |
| commit | 0f48821995b22b0819c4047b51ef2cd23897e125 (patch) | |
| tree | a9e413fd54f183516148fd9f41696ae05b58ba64 /library/cookiejar | |
| parent | b8e14e38027e717381ef0a17608144acd70dc2c5 (diff) | |
| parent | b44555477cda94fd227969fd4a281daa0a1dbb52 (diff) | |
| download | tcl-0f48821995b22b0819c4047b51ef2cd23897e125.zip tcl-0f48821995b22b0819c4047b51ef2cd23897e125.tar.gz tcl-0f48821995b22b0819c4047b51ef2cd23897e125.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/cookiejar')
| -rw-r--r-- | library/cookiejar/cookiejar.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/cookiejar/cookiejar.tcl b/library/cookiejar/cookiejar.tcl index 22f0f30..6e0d6c6 100644 --- a/library/cookiejar/cookiejar.tcl +++ b/library/cookiejar/cookiejar.tcl @@ -98,7 +98,8 @@ namespace eval [info object namespace ::http::cookiejar] { } proc splitPath path { set pieces [split [string trimleft $path "/"] "/"] - for {set j -1} {$j < [llength $pieces]} {incr j} { + set result / + for {set j 0} {$j < [llength $pieces]} {incr j} { lappend result /[join [lrange $pieces 0 $j] "/"] } return $result |