X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8c49c7c16863f886a6a4da3b585463cd16a8b976..284a3526271b040abd48aef39f61e8bacbf16645:/op.c diff --git a/op.c b/op.c index 85d786d..761e8dd 100644 --- a/op.c +++ b/op.c @@ -8789,7 +8789,7 @@ Perl_newGIVENOP(pTHX_ OP *cond, OP *block, PADOFFSET defsv_off) /* =for apidoc Am|OP *|newWHENOP|OP *cond|OP *block -Constructs, checks, and returns an op tree expressing a C block. +Constructs, checks, and returns an op tree expressing a C block. C supplies the test expression, and C supplies the block that will be executed if the test evaluates to true; they are consumed by this function and become part of the constructed op tree.