The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

newRV_inc newRV_noinc

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

#ifndef newRV_noinc #if { NEED newRV_noinc } SV * newRV_noinc(SV *sv) { SV *rv = (SV *)newRV(sv); SvREFCNT_dec(sv); return rv; } #endif #endif

#define NEED_newRV_noinc

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);

5 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 33:

Unknown directive: =xsinit

Around line 37:

Unknown directive: =xsubs

Around line 64:

Unknown directive: =tests