X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Ftypemap;h=752ca0d79719d99e16b890342b28385f4899a580;hp=421e73a263f8b3b02d3426decfb40990e0fc2a7d;hb=a7a88083f0c9d83828dc9154c1c053fcd735d9ba;hpb=1ee6da96efe8340a7d3904a865d80cd59d9d3fde

diff --git a/perl/typemap b/perl/typemap
index 421e73a..752ca0d 100644
--- a/perl/typemap
+++ b/perl/typemap
@@ -2,6 +2,7 @@ TYPEMAP
 char *		T_PV
 const char *	T_PV
 guestfs_h *	O_OBJECT_guestfs_h
+int64_t	  	T_IV
 
 INPUT
 O_OBJECT_guestfs_h
@@ -9,7 +10,7 @@ O_OBJECT_guestfs_h
         $var = ($type) SvIV ((SV *) SvRV ($arg));
     else {
         warn (\"${Package}::$func_name(): $var is not a blessed SV reference\");
-	XSRETURN_UNDEF;
+        XSRETURN_UNDEF;
     }
 
 OUTPUT