From 6b7c0e6edcea00cbbde34f695354b0ec1ee0e05b Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 12 Mar 2000 03:36:17 +0000
Subject: [PATCH] insufficient buffer in change#5317

p4raw-link: @5317 on //depot/perl: 0c57e439868bda58b2cbd4708d7a8b4dcf15b989

p4raw-id: //depot/perl@5670
---
 doop.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/doop.c b/doop.c
index e92a7ca..06b1b38 100644
--- a/doop.c
+++ b/doop.c
@@ -1098,6 +1098,9 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 	STRLEN dulen = 0;
 	I32 ulen;
 
+	if (optype != OP_BIT_AND)
+	    dc = SvGROW(sv, leftlen+rightlen+1);
+
 	switch (optype) {
 	case OP_BIT_AND:
 	    while (lulen && rulen) {
-- 
2.7.4