Don't reuse temp files in tests
[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 FCALL *f
7 #define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
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