fix MAD breakage caused by qw patch

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

diff --git a/toke.c b/toke.c
index a7ec612..b8694a6 100644 (file)
--- 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);
     }