From 8baab3c8d7a6f22888bd581cd5c6098fd2e4b5a8 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 6 May 2024 04:44:24 +0200
Subject: Adding upstream version 2:8.1.0875.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 src/typemap | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/typemap

(limited to 'src/typemap')

diff --git a/src/typemap b/src/typemap
new file mode 100644
index 0000000..ca1600e
--- /dev/null
+++ b/src/typemap
@@ -0,0 +1,14 @@
+TYPEMAP
+VIWIN	T_VIOBJNOMUNGE
+VIBUF	T_VIOBJNOMUNGE
+
+INPUT
+T_VIOBJNOMUNGE
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type, tmp);
+	    if (!tmp)
+		croak(\"$ntype no longer exists\");
+	}
+	else
+	    croak(\"$var is not of type ${ntype}\")
-- 
cgit v1.2.3