diff --git a/x11-toolkits/p5-Tk/Makefile b/x11-toolkits/p5-Tk/Makefile
index 0db4f25edb56..8464d25b39fa 100644
--- a/x11-toolkits/p5-Tk/Makefile
+++ b/x11-toolkits/p5-Tk/Makefile
@@ -1,60 +1,61 @@
 PORTNAME=	Tk
 PORTVERSION=	804.035
+PORTREVISION=	1
 CATEGORIES=	x11-toolkits tk perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
 
 MAINTAINER=	pi@FreeBSD.org
 COMMENT=	Re-port of a perl5 interface to Tk8.4
 WWW=		https://metacpan.org/release/Tk
 
 LICENSE=	ARTPERL10
 
 LIB_DEPENDS=	libpng.so:graphics/png \
 		libfreetype.so:print/freetype2 \
 		libfontconfig.so:x11-fonts/fontconfig
 
 OPTIONS_DEFINE=	XFT
 OPTIONS_DEFAULT=	XFT
 XFT_DESC=	Client-side fonts via libXft
 
 MAKE_JOBS_UNSAFE=	yes
 USES=		jpeg perl5 shebangfix xorg
 SHEBANG_FILES=	pTk/Tcl-pTk \
 		pTk/mkVFunc
 USE_PERL5=	configure
 USE_XORG=	x11
 
 .include <bsd.port.options.mk>
 
 .if ${PORT_OPTIONS:MXFT}
 CONFIGURE_ARGS=	XFT=1
 USE_XORG+=	xft
 .else
 CONFIGURE_ARGS=	XFT=0
 .endif
 
 post-patch:
 	@${REINPLACE_CMD} -e 's|%%LOCALBASE%%|${LOCALBASE}|g' \
 		${WRKSRC}/JPEG/Makefile.PL \
 		${WRKSRC}/PNG/Makefile.PL \
 		${WRKSRC}/pTk/Makefile.PL
 
 post-configure:
 	@${REINPLACE_CMD} \
 		-e '/^CC = / s|.*|CC = ${CC}|' \
 		-e '/^CCFLAGS = / s|.*|CCFLAGS = ${CFLAGS}|' \
 		-e '/^LD = / s|.*|LD = ${CC} ${CFLAGS} ${LDFLAGS}|' \
 		-e '/^FULL_AR = / s|.*|FULL_AR = ${AR}|' \
 		`${FIND} ${WRKSRC} -name Makefile`
 
 post-install:
 	@${RM} ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL}/auto/Tk/pTk/extralibs.ld
 	@${RMDIR} ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL}/auto/Tk/pTk
 	${STRIP_CMD} ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL}/auto/Tk/Tk.so
 .for i in Canvas Compound Entry Event HList IO InputO JPEG Listbox Menubutton Mwm NBFrame PNG Pixmap Scale Scrollbar TList Text TixGrid WinPhoto X Xlib
 		${STRIP_CMD} \
 		    ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL}/auto/Tk/${i}/${i}.so
 .endfor
 
 .include <bsd.port.mk>
diff --git a/x11-toolkits/p5-Tk/files/patch-pTk_Xlib.t b/x11-toolkits/p5-Tk/files/patch-pTk_Xlib.t
new file mode 100644
index 000000000000..cb847e09a554
--- /dev/null
+++ b/x11-toolkits/p5-Tk/files/patch-pTk_Xlib.t
@@ -0,0 +1,11 @@
+--- pTk/Xlib.t.orig	2023-05-19 20:18:20 UTC
++++ pTk/Xlib.t
+@@ -331,7 +331,7 @@ VFUNC(int,XIntersectRegion,V_XIntersectRegion,_ANSI_AR
+ #endif /* !DO_X_EXCLUDE */
+ 
+ #ifndef XKeycodeToKeysym
+-VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display *, unsigned int, int)))
++VFUNC(KeySym,XKeycodeToKeysym,V_XKeycodeToKeysym,_ANSI_ARGS_((Display *, KeyCode, int)))
+ #endif /* #ifndef XKeycodeToKeysym */
+ 
+ #ifndef XKeysymToString