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