From 417a992d4dc78be79e44d19e029d9742d0334128 Mon Sep 17 00:00:00 2001 From: Zefram Date: Fri, 25 May 2012 22:25:21 +0100 Subject: remove deprecated qw-as-parens behaviour --- toke.c | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 6cc0336a3a..4a774b51e0 100644 --- a/toke.c +++ b/toke.c @@ -11629,23 +11629,6 @@ Perl_parse_stmtseq(pTHX_ U32 flags) return stmtseqop; } -void -Perl_munge_qwlist_to_paren_list(pTHX_ OP *qwlist) -{ - PERL_ARGS_ASSERT_MUNGE_QWLIST_TO_PAREN_LIST; - deprecate("qw(...) as parentheses"); - force_next((4<<24)|')'); - if (qwlist->op_type == OP_STUB) { - op_free(qwlist); - } - else { - start_force(PL_curforce); - NEXTVAL_NEXTTOKE.opval = qwlist; - force_next(THING); - } - force_next((2<<24)|'('); -} - /* * Local variables: * c-indentation-style: bsd -- cgit v1.2.1