1 files changed, 2 insertions, 0 deletions
diff --git a/op.c b/op.c
index 1ed3dae056..e353015ef5 100644
--- a/op.c
+++ b/op.c
@@ -10315,6 +10315,8 @@ Perl_rpeep(pTHX_ register OP *o)
 			    cBINOPx(left)->op_first->op_sibling;
 			cBINOPx(left)->op_first->op_sibling = right;
 			left->op_private |= OPpSUBSTR_REPL_FIRST;
+			left->op_flags =
+			    (o->op_flags & ~OPf_WANT) | OPf_WANT_VOID;
 		    }
 		}
 	    }