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 |