# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1612345802 -7200
# Node ID b524a6e4be63305cd0ea4d905978087adee60b83
# Parent  7f7d8048ecb532ec5d6b74597b6d5d043d955766
feeds: Slight cleanup.

diff -r 7f7d8048ecb5 -r b524a6e4be63 feeds.tcl
--- a/feeds.tcl	Wed Feb 03 11:05:59 2021 +0200
+++ b/feeds.tcl	Wed Feb 03 11:50:02 2021 +0200
@@ -132,7 +132,7 @@
 
 proc feeds_validate_name {upublic unick uchan upattern ufname} {
   global feeds_dbh
-  upvar 1 $ufname afname
+  upvar $ufname afname
 
   # Check value
   if {$upattern == ""} {
diff -r 7f7d8048ecb5 -r b524a6e4be63 fetch_feeds.tcl
--- 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"