diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-07-14 12:28:15 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-07-14 17:35:32 -0700 |
commit | c087f08cbf44e0e4794563768e3adf95e484be98 (patch) | |
tree | 52437971c5ca8467bdf5551a140f667233a50ed8 | |
parent | 5d8673bca0104a9e3975238e86672281f7f71c03 (diff) | |
download | perl-c087f08cbf44e0e4794563768e3adf95e484be98.tar.gz |
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.
-rw-r--r-- | op.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -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); |