From 57ad4ee810591f8575ec8d4d10cc97f756bd9b53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Joachim=20Mairb=C3=B6ck?= <j.mairboeck@gmail.com>
Date: Sun, 17 Sep 2023 11:39:39 +0200
Subject: [PATCH] sub_uplevel: new perl module package

This is required for tests of some other packages.
---
 .../sub_uplevel/sub_uplevel-0.2800.recipe     | 49 +++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 dev-perl/sub_uplevel/sub_uplevel-0.2800.recipe

diff --git a/dev-perl/sub_uplevel/sub_uplevel-0.2800.recipe b/dev-perl/sub_uplevel/sub_uplevel-0.2800.recipe
new file mode 100644
index 000000000..a45001223
--- /dev/null
+++ b/dev-perl/sub_uplevel/sub_uplevel-0.2800.recipe
@@ -0,0 +1,49 @@
+SUMMARY="Apparently run a function in a higher stack frame"
+DESCRIPTION="Like Tcl's uplevel() function, but not quite so dangerous. The idea is just to fool \
+caller(). All the really naughty bits of Tcl's uplevel() are avoided."
+HOMEPAGE="https://metacpan.org/pod/Sub::Uplevel"
+COPYRIGHT="2017 by Michael Schwern and David Golden"
+LICENSE="Artistic"
+REVISION="1"
+SOURCE_URI="https://cpan.metacpan.org/authors/id/D/DA/DAGOLDEN/Sub-Uplevel-$portVersion.tar.gz"
+CHECKSUM_SHA256="b4f3f63b80f680a421332d8851ddbe5a8e72fcaa74d5d1d98f3c8cc4a3ece293"
+SOURCE_DIR="Sub-Uplevel-$portVersion"
+
+ARCHITECTURES="any"
+
+PROVIDES="
+	sub_uplevel = $portVersion
+	"
+REQUIRES="
+	haiku
+	vendor_perl
+	"
+
+BUILD_REQUIRES="
+	haiku_devel
+	"
+BUILD_PREREQUIRES="
+	cmd:make
+	cmd:perl
+	"
+
+BUILD()
+{
+	perl Makefile.PL PREFIX=$prefix
+	make
+}
+
+INSTALL()
+{
+	make pure_install
+
+	# remove architecture-specific files
+	cd $prefix
+	rm -r $(perl -V:vendorarch | cut -d\' -f2 | cut -d/ -f5-)
+		# cut extracts the quoted string and strips the prefix (which is perl's and not ours)
+}
+
+TEST()
+{
+	make test
+}