From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 12 Mar 2000 03:36:17 +0000 (+0000)
Subject: insufficient buffer in change#5317
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b7c0e6edcea00cbbde34f695354b0ec1ee0e05b;p=p5sagit%2Fp5-mst-13.2.git

insufficient buffer in change#5317

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

p4raw-id: //depot/perl@5670
---

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) {