fixup RSPL_newXS_flags to return the CV

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>

diff --git a/perlmod/src/ffi.rs b/perlmod/src/ffi.rs
index fd130314e9ebf42f0c1544a2480bc9cfb07cdaf4..acea15318404a16c67da38069465067c18d43a2a 100644 (file)
--- a/perlmod/src/ffi.rs
+++ b/perlmod/src/ffi.rs
@@ -207,7 +207,7 @@ extern "C" {
         filename: *const i8,
         proto: *const i8,
         flags: u32,
-    );
+    ) -> *mut CV;
 
     pub fn RSPL_SvNV(sv: *mut SV) -> f64;
     pub fn RSPL_SvIV(sv: *mut SV) -> isize;

diff --git a/perlmod/src/glue.c b/perlmod/src/glue.c
index 7e81c21f3499de0cd70b2924c3ba938ad40a678f..38bef013de78c6a3a25db2e78e1ebcecb1fcbb1e 100644 (file)
--- a/perlmod/src/glue.c
+++ b/perlmod/src/glue.c
@@ -33,14 +33,14 @@ extern void RSPL_croak_sv(SV *sv) {
     croak_sv(sv);
 }
 
-extern void RSPL_newXS_flags(
+extern CV* RSPL_newXS_flags(
     const char *name,
     void *subaddr,
     const char *const filename,
     const char *const proto,
     uint32_t flags
 ) {
-    newXS_flags(name, subaddr, filename, proto, flags);
+    return newXS_flags(name, subaddr, filename, proto, flags);
 }
 
 extern double RSPL_SvNV(SV *sv) {