From 4e3f31bfba5c5d93deb4a04b84ed418ebd191fd9 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Fri, 29 Sep 2006 21:56:39 +0000 Subject: [PATCH] fix missing eval --- library/httpvfs.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/httpvfs.tcl b/library/httpvfs.tcl index 1a89ced..b9760cb 100644 --- a/library/httpvfs.tcl +++ b/library/httpvfs.tcl @@ -291,7 +291,7 @@ proc vfs::http::urlname {name} { proc vfs::http::geturl {url args} { # a wrapper around http::geturl that handles 404 or !ok status check # returns error on no success, or a fully ready http token otherwise - set token [linsert $args 0 ::http::geturl $url] + set token [eval [linsert $args 0 ::http::geturl $url]] http::wait $token if {[http::ncode $token] == 404 || [http::status $token] ne "ok"} { -- 2.23.0