From: Richard Jones <rjones@redhat.com>
Date: Thu, 7 May 2009 19:52:33 +0000 (+0100)
Subject: Specify prototyping behaviour for Perl XSUBs.
X-Git-Tag: 1.0.20~6
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=672c4ba257924c3e64836c08fb3b55bc4a6b2aba

Specify prototyping behaviour for Perl XSUBs.
---

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index d29d5a0..e95b274 100644
--- 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
--- 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: