diff --git a/modules/amazon-s3/S3.tcl b/modules/amazon-s3/S3.tcl index dfdaf42..4df498d 100644 --- a/modules/amazon-s3/S3.tcl +++ b/modules/amazon-s3/S3.tcl @@ -136,9 +136,9 @@ proc S3::contenttype {fname} { } } else { # Assume something like Unix. - if {[file readable /etc/mime.types]} { + if {[file readable @TERMUX_PREFIX@/etc/mime.types]} { set extension [string trim [file extension $fname] "."] - set f [open /etc/mime.types r] + set f [open @TERMUX_PREFIX@/etc/mime.types r] while {-1 != [gets $f line] && ![info exists c]} { set line [string trim $line] if {[string match "#*" $line]} continue diff --git a/modules/bench/libbench.tcl b/modules/bench/libbench.tcl index ebf9f71..440094c 100644 --- a/modules/bench/libbench.tcl +++ b/modules/bench/libbench.tcl @@ -125,7 +125,7 @@ proc bench_tmpfile {} { set base "tclbench[incr BENCH(uniqid)].dat" if {[info exists tcl_platform(platform)]} { if {$tcl_platform(platform) == "unix"} { - return "/tmp/$base" + return "@TERMUX_PREFIX@/tmp/$base" } elseif {$tcl_platform(platform) == "windows"} { return [file join $env(TEMP) $base] } else { @@ -133,7 +133,7 @@ proc bench_tmpfile {} { } } else { # The Good Ol' Days (?) when only Unix support existed - return "/tmp/$base" + return "@TERMUX_PREFIX@/tmp/$base" } } @@ -152,7 +152,7 @@ proc bench_rm {args} { if {[info tclversion] > 7.4} { catch {file delete $file} } else { - catch {exec /bin/rm $file} + catch {exec @TERMUX_PREFIX@/bin/rm $file} } } } diff --git a/modules/dns/dns.tcl b/modules/dns/dns.tcl index 316458b..c512de1 100644 --- a/modules/dns/dns.tcl +++ b/modules/dns/dns.tcl @@ -53,8 +53,8 @@ namespace eval ::dns { cafile "" cadir "" } - if {[file exists /etc/ssl/certs/ca-certificates.crt]} { - set options(cafile) /etc/ssl/certs/ca-certificates.crt + if {[file exists @TERMUX_PREFIX@/etc/ssl/certs/ca-certificates.crt]} { + set options(cafile) @TERMUX_PREFIX@/etc/ssl/certs/ca-certificates.crt } variable log [logger::init dns] ${log}::setlevel $options(loglevel) @@ -1392,8 +1392,8 @@ switch -exact $::tcl_platform(platform) { unix { proc ::dns::nameservers {} { set nameservers {} - if {[file readable /etc/resolv.conf]} { - set f [open /etc/resolv.conf r] + if {[file readable @TERMUX_PREFIX@/etc/resolv.conf]} { + set f [open @TERMUX_PREFIX@/etc/resolv.conf r] while {![eof $f]} { gets $f line if {[regexp {^\s*nameserver\s+(.*)$} $line -> ns]} { diff --git a/modules/doctools/mpformats/_html.tcl b/modules/doctools/mpformats/_html.tcl index 8999b6d..4cd056a 100644 --- a/modules/doctools/mpformats/_html.tcl +++ b/modules/doctools/mpformats/_html.tcl @@ -130,7 +130,7 @@ proc stable {} {return [markup "