From 485b97be9f2f2abf5a40923b5fd85f75714a8c02 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Mon, 24 Sep 2012 10:15:50 +0000
Subject: Imported from
 /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.

---
 typemap | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 typemap

(limited to 'typemap')

diff --git a/typemap b/typemap
new file mode 100644
index 0000000..337bc2f
--- /dev/null
+++ b/typemap
@@ -0,0 +1,21 @@
+HV * T_HVREF_REFCOUNT_FIXED
+
+INPUT
+T_HVREF_REFCOUNT_FIXED
+        STMT_START {
+                SV* const xsub_tmp_sv = $arg;
+                SvGETMAGIC(xsub_tmp_sv);
+                if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
+                    $var = (HV*)SvRV(xsub_tmp_sv);
+                }
+                else{
+                    Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
+                                ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+                                \"$var\");
+                }
+        } STMT_END
+
+OUTPUT
+T_HVREF_REFCOUNT_FIXED
+        $arg = newRV_noinc((SV*)$var);
+
-- 
cgit v1.2.1