git: 5fdab73c642f - main - devel/tclreadline: backport two patches

From: Pietro Cerutti <gahr_at_FreeBSD.org>
Date: Mon, 08 Jul 2024 12:26:30 UTC
The branch main has been updated by gahr:

URL: https://cgit.FreeBSD.org/ports/commit/?id=5fdab73c642f9a3eccde48e40fbfcd714c1a3761

commit 5fdab73c642f9a3eccde48e40fbfcd714c1a3761
Author:     Pietro Cerutti <gahr@FreeBSD.org>
AuthorDate: 2024-07-08 12:22:30 +0000
Commit:     Pietro Cerutti <gahr@FreeBSD.org>
CommitDate: 2024-07-08 12:24:14 +0000

    devel/tclreadline: backport two patches
    
    https://github.com/flightaware/tclreadline/pull/41
    https://github.com/flightaware/tclreadline/issues/35
---
 devel/tclreadline/Makefile                           |  2 +-
 devel/tclreadline/files/patch-tclreadlineInit.tcl.in | 13 +++++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/devel/tclreadline/Makefile b/devel/tclreadline/Makefile
index cb918c71f387..a95fcd3015e7 100644
--- a/devel/tclreadline/Makefile
+++ b/devel/tclreadline/Makefile
@@ -1,7 +1,7 @@
 PORTNAME=	tclreadline
 PORTVERSION=	2.3.8
 DISTVERSIONPREFIX=	v
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	devel tcl
 
 MAINTAINER=	tcltk@FreeBSD.org
diff --git a/devel/tclreadline/files/patch-tclreadlineInit.tcl.in b/devel/tclreadline/files/patch-tclreadlineInit.tcl.in
new file mode 100644
index 000000000000..b3b047d78b82
--- /dev/null
+++ b/devel/tclreadline/files/patch-tclreadlineInit.tcl.in
@@ -0,0 +1,13 @@
+--- tclreadlineInit.tcl.in.orig	2024-07-08 12:20:49 UTC
++++ tclreadlineInit.tcl.in
+@@ -17,8 +17,8 @@ proc ::tclreadline::Init {} {
+     uplevel #0 {
+         if {![info exists tclreadline::library]} {
+             set msg ""
+-            foreach dirname {@TCLRL_LIBDIR@ [file dirname [info script]]} {
+-                if {[catch {load [file join $dirname libtclreadline[info sharedlibextension]]} msg] == 0} {
++            foreach dirname [list @TCLRL_LIBDIR@ [file dirname [info script]]] {
++                if {[catch {load [file join $dirname libtclreadline[info sharedlibextension]] tclreadline} msg] == 0} {
+                     set msg ""
+                     break
+                 }