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 e92a7ca77616e8da97ff10cef05b642c03b4dbda..06b1b38d5c85f4e43518ecc9376448aab054bb26 100644 (file)
--- 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) {