Commit | Line | Data |
12a7e53e |
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 |
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 | |