X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Ftypemap;h=2cc5e0c9f220018783666eb6115f776a16c31186;hb=8993116eec9b213a86a1b4d1defa94830a106818;hp=752ca0d79719d99e16b890342b28385f4899a580;hpb=aa5d6c138b55e25994ac723e94f32b009366927c;p=hivex.git

diff --git a/perl/typemap b/perl/typemap
index 752ca0d..2cc5e0c 100644
--- 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);