From 12a7e53ecaf2862097d42e6cd9b4de2e1b52eb5c Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 27 May 2002 16:22:45 +0000 Subject: Missed from #16811. p4raw-id: //depot/perl@16812 --- NetWare/sv_nw.c | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 NetWare/sv_nw.c (limited to 'NetWare') diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c new file mode 100644 index 0000000000..0051363e96 --- /dev/null +++ b/NetWare/sv_nw.c @@ -0,0 +1,35 @@ +#include +#define PERL_IN_SV_C +#include +#include + +#define FCALL *f +#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal(sv) + + + +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); +} + -- cgit v1.2.1