From aa0a69cb4bc6ac8103067b4dd5c2d09748f9d78d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 16 Apr 2006 13:25:18 +0000
Subject: [PATCH] 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
---
 doop.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.34.1