From 672c4ba257924c3e64836c08fb3b55bc4a6b2aba Mon Sep 17 00:00:00 2001 From: Richard Jones Date: Thu, 7 May 2009 20:52:33 +0100 Subject: [PATCH] Specify prototyping behaviour for Perl XSUBs. --- perl/Guestfs.xs | 2 ++ src/generator.ml | 2 ++ 2 files changed, 4 insertions(+) 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: -- 1.8.3.1