diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-29 23:04:34 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-29 23:04:34 +0000 |
| commit | 76f68e9bb86f29e34e2aeb5c177571288f05b7ca (patch) | |
| tree | 5d94b541dac7cf118c0a7f00f82e41b8883db427 /pp_hot.c | |
| parent | 502c6561fcd473b7da3277363169d75f16ac2f8b (diff) | |
| download | perl-76f68e9bb86f29e34e2aeb5c177571288f05b7ca.tar.gz | |
Use pvs macros instead of pvn where possible.
p4raw-id: //depot/perl@34653
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -255,7 +255,7 @@ PP(pp_concat) if (!SvOK(TARG)) { if (left == right && ckWARN(WARN_UNINITIALIZED)) report_uninit(right); - sv_setpvn(left, "", 0); + sv_setpvs(left, ""); } (void)SvPV_nomg_const(left, llen); /* Needed to set UTF8 flag */ lbyte = !DO_UTF8(left); @@ -1571,7 +1571,7 @@ Perl_do_readline(pTHX) if (av_len(GvAVn(PL_last_in_gv)) < 0) { IoFLAGS(io) &= ~IOf_START; do_open(PL_last_in_gv,"-",1,FALSE,O_RDONLY,0,NULL); - sv_setpvn(GvSVn(PL_last_in_gv), "-", 1); + sv_setpvs(GvSVn(PL_last_in_gv), "-"); SvSETMAGIC(GvSV(PL_last_in_gv)); fp = IoIFP(io); goto have_fp; |