Specify prototyping behaviour for Perl XSUBs.

[libguestfs.git] / src / generator.ml

diff --git a/src/generator.ml b/src/generator.ml
index 089ed29..ef8b3aa 100755 (executable)
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -4826,6 +4826,8 @@ XS_unpack_charPtrPtr (SV *arg) {
 
 MODULE = Sys::Guestfs  PACKAGE = Sys::Guestfs
 
+PROTOTYPES: ENABLE
+
 guestfs_h *
 _create ()
    CODE: