Mercurial > hg > egg-tcls

diff fetch_feeds.tcl @ 596:b524a6e4be63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Slight cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 03 Feb 2021 11:50:02 +0200
parents 14dfb925a64a
children 5767ef9476e2
line wrap: on
line diff
--- a/fetch_feeds.tcl	Wed Feb 03 11:05:59 2021 +0200
+++ b/fetch_feeds.tcl	Wed Feb 03 11:50:02 2021 +0200
@@ -47,11 +47,11 @@
 ##############################################################################
 
 proc fetch_dorequest { urlStr urlStatus urlSCode urlCode urlData urlMeta } {
-  upvar 1 $urlStatus ustatus
-  upvar 1 $urlSCode uscode
-  upvar 1 $urlCode ucode
-  upvar 1 $urlData udata
-  upvar 1 $urlMeta umeta
+  upvar $urlStatus ustatus
+  upvar $urlSCode uscode
+  upvar $urlCode ucode
+  upvar $urlData udata
+  upvar $urlMeta umeta
 
   if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} {
     puts "HTTP request failed: $uerrmsg"