Return NULL values from XS as undef.
This commit is contained in:
parent
d06c300926
commit
db51e4693d
1 changed files with 4 additions and 0 deletions
|
@ -272,10 +272,14 @@ T_LAYER_HEIGHT_RANGES
|
||||||
OUTPUT
|
OUTPUT
|
||||||
# return object from pointer
|
# return object from pointer
|
||||||
O_OBJECT_SLIC3R
|
O_OBJECT_SLIC3R
|
||||||
|
if ($var == NULL)
|
||||||
|
XSRETURN_UNDEF;
|
||||||
sv_setref_pv( $arg, perl_class_name($var), (void*)$var );
|
sv_setref_pv( $arg, perl_class_name($var), (void*)$var );
|
||||||
|
|
||||||
# return value handled by template class
|
# return value handled by template class
|
||||||
O_OBJECT_SLIC3R_T
|
O_OBJECT_SLIC3R_T
|
||||||
|
if ($var == NULL)
|
||||||
|
XSRETURN_UNDEF;
|
||||||
sv_setref_pv( $arg, $type\::CLASS(), (void*)$var );
|
sv_setref_pv( $arg, $type\::CLASS(), (void*)$var );
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue