[perl5.git] / 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, register 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, register SV *sstr)
{
    sv_setsv_flags(dstr, sstr, SV_GMAGIC);
}

char *
Perl_sv_2pv(pTHX_ register 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
	6	#define FCALL *f
9a265e59	7	#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
12a7e53e JH	8
	9
	10
	11	void
	12	Perl_sv_catsv(pTHX_ SV dstr, register 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, register SV sstr)
	26	{
	27	sv_setsv_flags(dstr, sstr, SV_GMAGIC);
	28	}
	29
	30	char *
	31	Perl_sv_2pv(pTHX_ register SV sv, STRLEN lp)
	32	{
	33	return sv_2pv_flags(sv, lp, SV_GMAGIC);
	34	}
	35