4 files changed, 102 insertions, 0 deletions
diff --git a/dev-perl/Manifest.gz b/dev-perl/Manifest.gz
index ef6e8a04c59d..c74071483f61 100644
--- a/dev-perl/Manifest.gz
+++ b/dev-perl/Manifest.gz
diff --git a/dev-perl/X11-XCB/Manifest b/dev-perl/X11-XCB/Manifest
index 5e59ca5216fb..1c789119284f 100644
--- a/dev-perl/X11-XCB/Manifest
+++ b/dev-perl/X11-XCB/Manifest
@@ -1,3 +1,5 @@
+AUX X11-XCB-0.190.0-build-fixes.patch 1272 BLAKE2B ea246fa9ae1205f9beeccc5eacb415354db2c3dd175bff28e8340eaff6214d4f06e399575d28ae1c1b2d5a4f3e911e22d2bf29c3a17052f15d4be3652857c2f1 SHA512 c47be739816f558c5f1a94f89d4d5ebaf569b4ba5942f2e49fd2da297b8702d5d9da55cc3884c5ea70526b51227f99bbbac733dd83fe4be4acca951e9043eec8
 DIST X11-XCB-0.19.tar.gz 156912 BLAKE2B c060ed7d327435a847c7eafd36bd517bb26b04f58251c3b475283b3006e91d7b51ed2b57604ec68c6ce41eb93ed8f90a04b727a411b14d25aa471dd0415bdeca SHA512 abd6369b00b9ebd4a333cd52b06b2f137a8b8c13a715a0ab485cf0f80acce601b8b22dfff394514ad8b21d253b5f72920aeee6b9bcf4b0d446b772d4ef60ce71
+EBUILD X11-XCB-0.190.0-r1.ebuild 1156 BLAKE2B 3bdc124fd9acc42c4b3a42b669441bfed0dc4472228381eba2294d5e0a4bc2038602f7e289d832cd77bc53698060f7057a38b7087cb2c1c31aa9d55e2c14d597 SHA512 418d4be876f7aacbf6891496f8c5e10989ee0c1ed26e41ba2c948faaac7f3e3b5ded6d9bc85c440fb624aeb0aaf14c9e435494bf4d37ccfa912de40eda636359
 EBUILD X11-XCB-0.190.0.ebuild 1103 BLAKE2B 6dce26d3908a357d1ffe487acd4ed8f264c784f53e16360bfa7fdae5329f4bc7e97f6227fe6e39321c228fc620211ed6a8d3748f5213e425f319d90bdb182c8e SHA512 034ced6dfb2b6975960fac0a418e223256f2037fbd835f14db097901dac57de15afaf59145c3d1232fabd7e6506ea5ce855ded813e6026226e5b8b201dcecf1d
 MISC metadata.xml 1331 BLAKE2B b643ed14d5dbf14d68b926bcc6bf9edc4ae1e99c6ab48ef442f36c44129cd8b8661991e3a75a50c6898b898b6c1a1ebb54122635b8efeb334aff4dcd546c4768 SHA512 a2ef3e4c5a4fc0dc5bb7899015b4565ae2527651e2c097974c37f46b5c0377281238233df2b26ca0d827c9da1c0ffa3af3b37c427b6bd7455a19577a96128c8f
diff --git a/dev-perl/X11-XCB/X11-XCB-0.190.0-r1.ebuild b/dev-perl/X11-XCB/X11-XCB-0.190.0-r1.ebuild
new file mode 100644
index 000000000000..57f894e175ea
--- /dev/null
+++ b/dev-perl/X11-XCB/X11-XCB-0.190.0-r1.ebuild
@@ -0,0 +1,63 @@
+# Copyright 1999-2023 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=7
+
+DIST_AUTHOR=MSTPLBG
+DIST_VERSION=0.19
+inherit perl-module virtualx
+
+DESCRIPTION="Perl bindings for libxcb"
+SLOT="0"
+KEYWORDS="~amd64 ~arm ~arm64 ~ppc64 ~riscv ~x86"
+IUSE="test"
+RESTRICT="!test? ( test )"
+
+RDEPEND="
+	dev-perl/Data-Dump
+	dev-perl/Mouse
+	dev-perl/MouseX-NativeTraits
+	dev-perl/Try-Tiny
+	dev-perl/XML-Descent
+	dev-perl/XML-Simple
+	>=virtual/perl-XSLoader-0.20.0
+	>=x11-libs/libxcb-1.2
+	x11-libs/xcb-util
+	x11-libs/xcb-util-wm
+"
+DEPEND="
+	>=x11-libs/libxcb-1.2
+	x11-libs/xcb-util
+	x11-libs/xcb-util-wm
+	x11-base/xcb-proto
+"
+BDEPEND="${RDEPEND}
+	x11-base/xcb-proto
+	>=virtual/perl-Devel-PPPort-3.190.0
+	dev-perl/ExtUtils-Depends
+	>=virtual/perl-ExtUtils-MakeMaker-6.590.0
+	>=virtual/perl-ExtUtils-ParseXS-3.180.0
+	dev-perl/ExtUtils-PkgConfig
+	dev-perl/XS-Object-Magic
+	test? (
+		dev-perl/Test-Deep
+		dev-perl/Test-Exception
+		virtual/perl-Test-Simple
+	)
+"
+
+PATCHES=(
+	"${FILESDIR}"/${P}-build-fixes.patch
+)
+
+src_compile() {
+	mymake=(
+		"OPTIMIZE=${CFLAGS}"
+	)
+
+	perl-module_src_compile
+}
+
+src_test() {
+	virtx perl-module_src_test
+}
diff --git a/dev-perl/X11-XCB/files/X11-XCB-0.190.0-build-fixes.patch b/dev-perl/X11-XCB/files/X11-XCB-0.190.0-build-fixes.patch
new file mode 100644
index 000000000000..e1b18fc50fc6
--- /dev/null
+++ b/dev-perl/X11-XCB/files/X11-XCB-0.190.0-build-fixes.patch
@@ -0,0 +1,37 @@
+https://bugs.gentoo.org/890178
+https://github.com/stapelberg/X11-XCB/pull/3
+
+From 95539af3ff38ebc221f92893aade612305c2aba8 Mon Sep 17 00:00:00 2001
+From: Peter Levine <plevine457@gmail.com>
+Date: Mon, 16 Jan 2023 03:40:24 -0500
+Subject: [PATCH 1/2] Fix undeclared __PACKAGE__ in C context
+
+--- a/XCB.xs
++++ b/XCB.xs
+@@ -180,7 +180,7 @@ _connect_and_attach_struct(self)
+   PREINIT:
+     XCBConnection *xcbconnbuf;
+   CODE:
+-    assert(sv_derivered_from(self, __PACKAGE__));
++    assert(sv_derivered_from(self, HvNAME(PL_curstash)));
+     SV **disp = hv_fetch((HV*)SvRV(self), "display", strlen("display"), 0);
+     if(!disp)
+         croak("Attribute 'display' is required");
+
+From 0922360b6fc1d2273dd3e15d0584bea983fdde9a Mon Sep 17 00:00:00 2001
+From: Peter Levine <plevine457@gmail.com>
+Date: Mon, 16 Jan 2023 03:42:08 -0500
+Subject: [PATCH 2/2] Fix typo in  'sv_derived_from'
+
+--- a/XCB.xs
++++ b/XCB.xs
+@@ -180,7 +180,7 @@ _connect_and_attach_struct(self)
+   PREINIT:
+     XCBConnection *xcbconnbuf;
+   CODE:
+-    assert(sv_derivered_from(self, HvNAME(PL_curstash)));
++    assert(sv_derived_from(self, HvNAME(PL_curstash)));
+     SV **disp = hv_fetch((HV*)SvRV(self), "display", strlen("display"), 0);
+     if(!disp)
+         croak("Attribute 'display' is required");
+