Mercurial > hg > egg-tcls

changeset 696:d82cadd5b4ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Set ustatus and uscode if returning an error -1 from utl_http_do_request()
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 05 Sep 2023 00:06:17 +0300
parents abd05400481d
children 14d4d4300623
files utillib.tcl
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/utillib.tcl	Fri Jun 23 21:21:59 2023 +0300
+++ b/utillib.tcl	Tue Sep 05 00:06:17 2023 +0300
@@ -201,6 +201,8 @@
 
   ### Perform request
   if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} {
+    set ustatus "ERROR"
+    set ucode "INTERNAL"
     set uscode $uerror
     return -1
   }