fix MAD breakage caused by qw patch

ea25a9b2cf73948b1e8c5675de027e0ad13277bd broke MAD due to incorrect
usage of the token-forcing mechanism.

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index a7ec6122e7..b8694a6262 100644
--- a/toke.c
+++ b/toke.c
@@ -13993,6 +13993,7 @@ Perl_coerce_qwlist_to_paren_list(pTHX_ OP *qwlist)
 	op_free(qwlist);
     }
     else {
+	start_force(PL_curforce);
 	NEXTVAL_NEXTTOKE.opval = qwlist;
 	force_next(THING);
     }