From b44555477cda94fd227969fd4a281daa0a1dbb52 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 28 May 2020 09:38:51 +0000
Subject: In cookiejar, don't depend on "lrange $pieces 0 -1" doing anything
 useful.

---
 library/cookiejar/cookiejar.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/library/cookiejar/cookiejar.tcl b/library/cookiejar/cookiejar.tcl
index c8b495a..6c8e82b 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
-- 
cgit v0.12