From 6b7c0e6edcea00cbbde34f695354b0ec1ee0e05b Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy 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) { -- 1.8.3.1