diff --git a/devel/p5-IO-Tty/Makefile b/devel/p5-IO-Tty/Makefile
index a2805b14a5a3..5bf40df7ffb3 100644
--- a/devel/p5-IO-Tty/Makefile
+++ b/devel/p5-IO-Tty/Makefile
@@ -1,20 +1,20 @@
 PORTNAME=	IO-Tty
-PORTVERSION=	1.17
+PORTVERSION=	1.18
 CATEGORIES=	devel perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
 
 MAINTAINER=	perl@FreeBSD.org
 COMMENT=	Flexible I/O Perl5 module that allows manipulation of pseudo-TTYs
 WWW=		https://metacpan.org/release/IO-Tty
 
 LICENSE=	ART10 GPLv1+
 LICENSE_COMB=	dual
 
 USES=		perl5
 USE_PERL5=	configure
 
 post-install:
 	${STRIP_CMD} ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL}/auto/IO/Tty/Tty.so
 
 .include <bsd.port.mk>
diff --git a/devel/p5-IO-Tty/distinfo b/devel/p5-IO-Tty/distinfo
index db4f16f0c829..a671f9e62e8a 100644
--- a/devel/p5-IO-Tty/distinfo
+++ b/devel/p5-IO-Tty/distinfo
@@ -1,3 +1,3 @@
-TIMESTAMP = 1669058275
-SHA256 (IO-Tty-1.17.tar.gz) = a5f1a83020bc5b5dd6c1b570f48c7546e0a8f7fac10a068740b03925ad9e14e8
-SIZE (IO-Tty-1.17.tar.gz) = 27245
+TIMESTAMP = 1701364500
+SHA256 (IO-Tty-1.18.tar.gz) = b0e45b186e4ca54636b1f15111ec0fee86b993e23db529aacb4759df946792ff
+SIZE (IO-Tty-1.18.tar.gz) = 26567
diff --git a/devel/p5-IO-Tty/files/patch-Tty.xs b/devel/p5-IO-Tty/files/patch-Tty.xs
new file mode 100644
index 000000000000..aa2022c15356
--- /dev/null
+++ b/devel/p5-IO-Tty/files/patch-Tty.xs
@@ -0,0 +1,11 @@
+--- Tty.xs.orig	2022-11-11 20:14:48 UTC
++++ Tty.xs
+@@ -186,7 +186,7 @@ mysignal(int sig, mysig_t act)
+  * will be copied.  Always NUL terminates (unless siz == 0).
+  * Returns strlen(src); if retval >= siz, truncation occurred.
+  */
+-static size_t
++size_t
+ strlcpy(dst, src, siz)
+         char *dst;
+         const char *src;