From c087f08cbf44e0e4794563768e3adf95e484be98 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 14 Jul 2012 12:28:15 -0700 Subject: [PATCH] op.c: ck_grep does not need to check num of args It calls ck_fun first, which does the same check, so it is unnecessary. --- op.c | 2 -- 1 file changed, 2 deletions(-) diff --git a/op.c b/op.c index acea933..b5a78d5 100644 --- a/op.c +++ b/op.c @@ -8622,8 +8622,6 @@ Perl_ck_grep(pTHX_ OP *o) } kid = cLISTOPo->op_first->op_sibling; - if (!kid || !kid->op_sibling) - return too_few_arguments_pv(o,OP_DESC(o), 0); for (kid = kid->op_sibling; kid; kid = kid->op_sibling) op_lvalue(kid, OP_GREPSTART); -- 2.7.4