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
Perl_sv_catsv(pTHX_ SV * dstr,SV * sstr)11 Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
12 {
13 sv_catsv_flags(dstr, sstr, SV_GMAGIC);
14 }
15
16 void
Perl_sv_catpvn(pTHX_ SV * dsv,const char * sstr,STRLEN slen)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
Perl_sv_setsv(pTHX_ SV * dstr,SV * sstr)24 Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
25 {
26 sv_setsv_flags(dstr, sstr, SV_GMAGIC);
27 }
28
29 char *
Perl_sv_2pv(pTHX_ SV * sv,STRLEN * lp)30 Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
31 {
32 return sv_2pv_flags(sv, lp, SV_GMAGIC);
33 }
34
35