From d3d311b045cc0dc9a10f76f65a77a508b5dc4f63 Mon Sep 17 00:00:00 2001 From: Mikhail Teterin Date: Fri, 22 Oct 2021 23:25:14 -0400 Subject: [PATCH] www/tclhttpd: Add a patch to work with newer Tcl (8.6+) The subcommands of file(n) aren't available in safe interpreters. Bump PORTREVISION. PR: 259053 Submitted by: Peter Dean --- www/tclhttpd/Makefile | 2 +- www/tclhttpd/files/patch-lib__config.tcl | 10 ++++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) create mode 100644 www/tclhttpd/files/patch-lib__config.tcl diff --git a/www/tclhttpd/Makefile b/www/tclhttpd/Makefile index 81627be5d10c..fe8429dabc39 100644 --- a/www/tclhttpd/Makefile +++ b/www/tclhttpd/Makefile @@ -2,7 +2,7 @@ PORTNAME= tclhttpd PORTVERSION= 3.5.1 -PORTREVISION= 3 +PORTREVISION= 4 CATEGORIES= www tcl MASTER_SITES= TCLTK/httpd DISTNAME= ${PORTNAME}${PORTVERSION} diff --git a/www/tclhttpd/files/patch-lib__config.tcl b/www/tclhttpd/files/patch-lib__config.tcl new file mode 100644 index 000000000000..ad4f7dfcc09c --- /dev/null +++ b/www/tclhttpd/files/patch-lib__config.tcl @@ -0,0 +1,10 @@ +--- lib/config.tcl 2000-08-02 03:06:52.000000000 -0400 ++++ lib/config.tcl 2016-06-05 14:51:18.000000000 -0400 +@@ -52,6 +52,9 @@ + + set i [interp create -safe] + interp expose $i file ++ foreach subcommand {isdirectory exists dirname} { ++ interp alias $i ::tcl::file::$subcommand {} file $subcommand ++ } +