From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 29 Sep 2006 21:56:39 +0000 (+0000)
Subject: fix missing eval
X-Git-Tag: vfs-1-4~50
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4e3f31bfba5c5d93deb4a04b84ed418ebd191fd9;p=tclvfs

fix missing eval
---

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"} {