1 files changed, 3 insertions, 0 deletions
diff --git a/doop.c b/doop.c
index e92a7ca776..06b1b38d5c 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) {