diff options
author | Yves Orton <demerphq@gmail.com> | 2016-10-19 11:14:26 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:01 +0200 |
commit | 60e13354924e5699cc897e381bf48a16b2b75a0d (patch) | |
tree | 8ec276c7f062af53b8a5985ce53246f35496c952 /pp_sys.c | |
parent | e8f7c79fe82af5804e5ea7902214cc4a9d992332 (diff) | |
download | perl-60e13354924e5699cc897e381bf48a16b2b75a0d.tar.gz |
pp_sys.c: use new SvPVCLEAR and constant string friendly macros
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -320,7 +320,7 @@ PP(pp_backtick) ENTER_with_name("backtick"); SAVESPTR(PL_rs); PL_rs = &PL_sv_undef; - sv_setpvs(TARG, ""); /* note that this preserves previous buffer */ + SvPVCLEAR(TARG); /* note that this preserves previous buffer */ while (sv_gets(TARG, fp, SvCUR(TARG)) != NULL) NOOP; LEAVE_with_name("backtick"); @@ -1684,7 +1684,7 @@ PP(pp_sysread) goto say_undef; bufsv = *++MARK; if (! SvOK(bufsv)) - sv_setpvs(bufsv, ""); + SvPVCLEAR(bufsv); length = SvIVx(*++MARK); if (length < 0) DIE(aTHX_ "Negative length"); @@ -2895,7 +2895,7 @@ PP(pp_stat) havefp = FALSE; PL_laststype = OP_STAT; PL_statgv = gv ? gv : (GV *)io; - sv_setpvs(PL_statname, ""); + SvPVCLEAR(PL_statname); if(gv) { io = GvIO(gv); } @@ -3455,7 +3455,7 @@ PP(pp_fttext) } else { PL_statgv = gv; - sv_setpvs(PL_statname, ""); + SvPVCLEAR(PL_statname); io = GvIO(PL_statgv); } PL_laststatval = -1; |