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

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index cfc67cbce8..5972dbd2a6 100644
--- 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);