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 |