File: sv_setrv.c.inc

package info (click to toggle)
libxs-parse-sublike-perl 0.37-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 516 kB
  • sloc: ansic: 944; perl: 930; sh: 6; makefile: 3
file content (13 lines) | stat: -rw-r--r-- 305 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
/* vi: set ft=c : */

#ifndef sv_setrv_noinc
#  define sv_setrv_noinc(sv, rv)  S_sv_setrv(aTHX_ sv, rv)
#  define sv_setrv_inc(sv, rv)    S_sv_setrv(aTHX_ sv, SvREFCNT_inc(rv))
#endif

static void S_sv_setrv(pTHX_ SV *sv, SV *rv)
{
  SV *tmp = newRV_noinc(rv);
  sv_setsv(sv, tmp);
  SvREFCNT_dec(tmp);
}