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 (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;
 
        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) {
        switch (optype) {
        case OP_BIT_AND:
            while (lulen && rulen) {