Perl_do_vop can profitably use Perl_sv_usepvn_flags, as it has

allocated space for an initialised a trailing NUL.

p4raw-id: //depot/perl@27843

diff --git a/doop.c b/doop.c
index cfc67cbce82ce0f1b33fbb232dd2e98bc3c56873..5972dbd2a617af7881ed4a775646efefdddb5942 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -1214,7 +1214,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
        needlen = ((optype == OP_BIT_AND)
                    ? len : (leftlen > rightlen ? leftlen : rightlen));
        Newxz(dc, needlen + 1, char);
-       (void)sv_usepvn(sv, dc, needlen);
+       sv_usepvn_flags(sv, dc, needlen, SV_HAS_TRAILING_NUL);
        dc = SvPVX(sv);         /* sv_usepvn() calls Renew() */
     }
     SvCUR_set(sv, len);