5.18.1/NetWare/sv_nw.c

#include <EXTERN.h>
#define PERL_IN_SV_C
#include <perl.h>
#include <regcomp.h>

#define FCALL *f
#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)


void
Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
{
    sv_catsv_flags(dstr, sstr, SV_GMAGIC);
}

void
Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
{
    
    sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
}

void
Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
{
    sv_setsv_flags(dstr, sstr, SV_GMAGIC);
}

char *
Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
{
    return sv_2pv_flags(sv, lp, SV_GMAGIC);
}

Revision:	6435
Committed:	Mon Dec 2 04:40:05 2013 UTC (10 years, 5 months ago) by laffer1
Content type:	text/plain
File size:	589 byte(s)
Log Message:	tag perl 5.18.1
#	Content
1	#include <EXTERN.h>
2	#define PERL_IN_SV_C
3	#include <perl.h>
4	#include <regcomp.h>
5
6	#define FCALL *f
7	#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
8
9
10
11	void
12	Perl_sv_catsv(pTHX_ SV dstr, SV sstr)
13	{
14	sv_catsv_flags(dstr, sstr, SV_GMAGIC);
15	}
16
17	void
18	Perl_sv_catpvn(pTHX_ SV dsv, const char sstr, STRLEN slen)
19	{
20
21	sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
22	}
23
24	void
25	Perl_sv_setsv(pTHX_ SV dstr, SV sstr)
26	{
27	sv_setsv_flags(dstr, sstr, SV_GMAGIC);
28	}
29
30	char *
31	Perl_sv_2pv(pTHX_ SV sv, STRLEN lp)
32	{
33	return sv_2pv_flags(sv, lp, SV_GMAGIC);
34	}
35