generator: Perl bindings.

[hivex.git] / perl / typemap

diff --git a/perl/typemap b/perl/typemap
index 752ca0d..2cc5e0c 100644 (file)
--- a/perl/typemap
+++ b/perl/typemap
@@ -1,11 +1,11 @@
 TYPEMAP
 char *         T_PV
 const char *   T_PV
-guestfs_h *    O_OBJECT_guestfs_h
+hive_h *       O_OBJECT_hive_h
 int64_t                T_IV
 
 INPUT
-O_OBJECT_guestfs_h
+O_OBJECT_hive_h
     if (sv_isobject ($arg) && SvTYPE (SvRV ($arg)) == SVt_PVMG)
         $var = ($type) SvIV ((SV *) SvRV ($arg));
     else {
@@ -14,5 +14,5 @@ O_OBJECT_guestfs_h
     }
 
 OUTPUT
-O_OBJECT_guestfs_h
-    sv_setref_pv ($arg, "Sys::Guestfs", (void *) $var);
+O_OBJECT_hive_h
+    sv_setref_pv ($arg, "Win::Hivex", (void *) $var);