summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2016-10-19 11:14:26 +0200
committerYves Orton <demerphq@gmail.com>2016-10-19 13:28:01 +0200
commit60e13354924e5699cc897e381bf48a16b2b75a0d (patch)
tree8ec276c7f062af53b8a5985ce53246f35496c952 /pp_sys.c
parente8f7c79fe82af5804e5ea7902214cc4a9d992332 (diff)
downloadperl-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.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 3c8e985df6..13f2913c44 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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;