[perl5.git] / NetWare / sv_nw.c

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

#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);
}
Commit	Line	Data
12a7e53e JH	1	#include <EXTERN.h>
	2	#define PERL_IN_SV_C
	3	#include <perl.h>
	4	#include <regcomp.h>
	5
9a265e59	6	#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
12a7e53e JH	7
	8
	9
	10	void
5aaab254	11	Perl_sv_catsv(pTHX_ SV dstr, SV sstr)
12a7e53e JH	12	{
	13	sv_catsv_flags(dstr, sstr, SV_GMAGIC);
	14	}
	15
	16	void
	17	Perl_sv_catpvn(pTHX_ SV dsv, const char sstr, STRLEN slen)
	18	{
	19
	20	sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
	21	}
	22
	23	void
5aaab254	24	Perl_sv_setsv(pTHX_ SV dstr, SV sstr)
12a7e53e JH	25	{
	26	sv_setsv_flags(dstr, sstr, SV_GMAGIC);
	27	}
	28
	29	char *
5aaab254	30	Perl_sv_2pv(pTHX_ SV sv, STRLEN lp)
12a7e53e JH	31	{
	32	return sv_2pv_flags(sv, lp, SV_GMAGIC);
	33	}
	34