fix MAD breakage caused by qw patch
authorZefram <zefram@fysh.org>
Sat, 11 Sep 2010 10:37:04 +0000 (11:37 +0100)
committerTony Cook <tony@develop-help.com>
Sat, 11 Sep 2010 10:58:14 +0000 (20:58 +1000)
ea25a9b2cf73948b1e8c5675de027e0ad13277bd broke MAD due to incorrect
usage of the token-forcing mechanism.

toke.c

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);
     }