Return NULL values from XS as undef.

2014-05-11 01:52:08 +03:00 · 2014-05-11 01:52:08 +03:00 · db51e4693d
parent d06c300926
commit db51e4693d
1 changed files with 4 additions and 0 deletions
--- a/xs/xsp/my.map
+++ b/xs/xsp/my.map
@ -272,10 +272,14 @@ T_LAYER_HEIGHT_RANGES
 OUTPUT
 # return object from pointer
 O_OBJECT_SLIC3R
+        if ($var == NULL)
+            XSRETURN_UNDEF;
        sv_setref_pv( $arg, perl_class_name($var), (void*)$var );

 # return value handled by template class
 O_OBJECT_SLIC3R_T
+        if ($var == NULL)
+            XSRETURN_UNDEF;
        sv_setref_pv( $arg, $type\::CLASS(), (void*)$var );