Added new version of libextutils-parsexs-perl

[pkg-perl] / deb-src / libextutils-parsexs-perl / libextutils-parsexs-perl-2.220200 / t / bugs / typemap

diff --git a/deb-src/libextutils-parsexs-perl/libextutils-parsexs-perl-2.220200/t/bugs/typemap b/deb-src/libextutils-parsexs-perl/libextutils-parsexs-perl-2.220200/t/bugs/typemap
new file mode 100644 (file)
index 0000000..9e2ebb9
--- /dev/null
+++ b/deb-src/libextutils-parsexs-perl/libextutils-parsexs-perl-2.220200/t/bugs/typemap
@@ -0,0 +1,18 @@
+TYPEMAP
+Detector *     O_OBJECT
+
+INPUT
+O_OBJECT
+       if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) {
+           $var = ($type)SvIV((SV*)SvRV( $arg ));
+       } else {
+           warn(\"${Package}::$func_name() -- $var is not a blessed SV reference\");
+           XSRETURN_UNDEF;
+       }
+
+OUTPUT
+# The Perl object is blessed into 'CLASS', which should be a
+# char * having the name of the package for the blessing.
+O_OBJECT
+       sv_setref_pv($arg, CLASS, (void*)$var);
+