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 SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
   7
   8
   9
  10 void
  11 Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
  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
  24 Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
  25 {
  26     sv_setsv_flags(dstr, sstr, SV_GMAGIC);
  27 }
  28
  29 char *
  30 Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
  31 {
  32     return sv_2pv_flags(sv, lp, SV_GMAGIC);
  33 }
  34