Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v diff -u -r1.30.2.7 -r1.30.2.8 --- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 11 Aug 2020 20:44:38 -0000 1.30.2.7 +++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 28 Oct 2020 15:39:19 -0000 1.30.2.8 @@ -246,10 +246,10 @@ # Since NaviServer 4.99.12 ns_http handles also HTTPS if {[apm_version_names_compare \ [ns_info patchlevel] "4.99.12"] >= 0} { - return [info commands ns_http] + return [namespace which ns_http] } # Default: check if we have ns_ssl - return [info commands ns_ssl] + return [namespace which ns_ssl] } ad_proc -private util::http::native_https_api { @@ -275,7 +275,7 @@ lappend https "curl" } - if {[info commands ns_http] ne ""} { + if {[namespace which ns_http] ne ""} { lappend http "native" } @@ -1451,7 +1451,7 @@ # zlib is mandatory when requiring compression if {$gzip_request_p || $gzip_response_p} { - if {[info commands zlib] eq ""} { + if {[namespace which zlib] eq ""} { return -code error "${this_proc}: zlib support not enabled" } } @@ -1744,7 +1744,7 @@ # zlib is mandatory when compressing the input if {$gzip_request_p} { - if {[info commands zlib] eq ""} { + if {[namespace which zlib] eq ""} { return -code error "${this_proc}: zlib support not enabled" } }