view release on metacpan or  search on metacpan

LMS.xs  view on Meta::CPAN

	if (! copy_returncodes(&l_LMS_ControlBlock, p_pAccessor))
	  XSRETURN_UNDEF;
	if (l_LMS_ControlBlock.retcode != LMSUP_OK  &&
	    l_LMS_ControlBlock.retcode != LMSUP_EOF)
	  XSRETURN_UNDEF;
	/* set return code: */
	RETVAL = l_pTOCArray;
    OUTPUT:
	RETVAL
    CLEANUP:
	/* give up reference to AV (see CookBookA/Ex4 for details): */
	SvREFCNT_dec(RETVAL);


 ########################################################################
 # call:								#
 #	lms_open_get($rAccessor, $rElementDescr);			#
 # parameters:								#
 #	$rAccessor	reference to accessor object			#
 #	$rElementDescr	reference to hash with element description	#
 # description:								#