From 14f0f125b45b58bbf2d9e275abf2fef1655f8a3e Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Wed, 7 Sep 2011 22:22:42 +0100 Subject: remove unused variables and assignments and silences some compiler warnings. I do not understand the code in toke.c but the change aligns the code with other uses of FUN0OP, it has no warnings and does not break any test. --- op.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'op.c') diff --git a/op.c b/op.c index 2dff0593ed..7e1360cc7e 100644 --- a/op.c +++ b/op.c @@ -9292,10 +9292,9 @@ Perl_ck_entersub_args_core(pTHX_ OP *entersubop, GV *namegv, SV *protosv) PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_CORE; if (!opnum) { - OP *prev, *cvop; + OP *cvop; if (!aop->op_sibling) aop = cUNOPx(aop)->op_first; - prev = aop; aop = aop->op_sibling; for (cvop = aop; cvop->op_sibling; cvop = cvop->op_sibling) ; if (PL_madskills) while (aop != cvop && aop->op_type == OP_STUB) { -- cgit v1.2.1