diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-25 09:52:27 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-25 09:52:27 +0000 |
| commit | 523f125d4a71aa467fc6a9acfe6c304944f5a5f5 (patch) | |
| tree | a27b89580fe567028dc963882f256509d3cc390d /pp.c | |
| parent | 0c42fe95656e99f238a0bcf90ab2476c175615b7 (diff) | |
| download | perl-523f125d4a71aa467fc6a9acfe6c304944f5a5f5.tar.gz | |
Use sv_setpvs() like a few lines before since change #33557
p4raw-link: @33557 on //depot/perl: 502d9230ec570254fed51ae721c1da50944a5cbf
p4raw-id: //depot/perl@33560
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3199,7 +3199,7 @@ PP(pp_substr) else if (SvOK(sv)) /* is it defined ? */ (void)SvPOK_only_UTF8(sv); else - sv_setpvn(sv,"",0); /* avoid lexical reincarnation */ + sv_setpvs(sv, ""); /* avoid lexical reincarnation */ } if (SvTYPE(TARG) < SVt_PVLV) { |