Specify prototyping behaviour for Perl XSUBs.

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index d29d5a0..e95b274 100644 (file)
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -88,6 +88,8 @@ XS_unpack_charPtrPtr (SV *arg) {
 
 MODULE = Sys::Guestfs  PACKAGE = Sys::Guestfs
 
+PROTOTYPES: ENABLE
+
 guestfs_h *
 _create ()
    CODE:

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: