Add missing epigraph for 5.31.3
[perl.git] / NetWare / sv_nw.c
1 #include <EXTERN.h>
2 #define PERL_IN_SV_C
3 #include <perl.h>
4 #include <regcomp.h>
5
6 #define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
7
8
9
10 void
11 Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
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
24 Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
25 {
26     sv_setsv_flags(dstr, sstr, SV_GMAGIC);
27 }
28
29 char *
30 Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
31 {
32     return sv_2pv_flags(sv, lp, SV_GMAGIC);
33 }
34