++ed by:
KES ETHER POTATOGIM DOLMEN PINGAN

6 PAUSE users
3 non-PAUSE users.

Author image ℕicolas ℝ.
and 1 contributors

newRV_inc newRV_noinc

__UNDEFINED__ newRV_inc(sv) newRV(sv) /* Replace */

#ifndef newRV_noinc #if defined(PERL_USE_GCC_BRACE_GROUPS) # define newRV_noinc(sv) ({ SV *_sv = (SV *)newRV((sv)); SvREFCNT_dec((sv)); _sv; }) #else # define newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv) #endif #endif

U32 newRV_inc_REFCNT() PREINIT: SV *sv, *rv; CODE: sv = newSViv(42); rv = newRV_inc(sv); SvREFCNT_dec(sv); RETVAL = SvREFCNT(sv); sv_2mortal(rv); OUTPUT: RETVAL

U32 newRV_noinc_REFCNT() PREINIT: SV *sv, *rv; CODE: sv = newSViv(42); rv = newRV_noinc(sv); RETVAL = SvREFCNT(sv); sv_2mortal(rv); OUTPUT: RETVAL

is(&Devel::PPPort::newRV_inc_REFCNT, 1); is(&Devel::PPPort::newRV_noinc_REFCNT, 1);

4 POD Errors

The following errors were encountered while parsing the POD:

Around line 12:

Unknown directive: =provides

Around line 17:

Unknown directive: =implementation

Around line 29:

Unknown directive: =xsubs

Around line 56:

Unknown directive: =tests