++ed by:
SYP DOLMEN POTATOGIM KES ETHER

5 PAUSE users
3 non-PAUSE users.

Reini Urban

newRV_inc newRV_noinc

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

#ifndef newRV_noinc #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # 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

ok(&Devel::PPPort::newRV_inc_REFCNT, 1); ok(&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