diff options
| -rw-r--r-- | pod/perlapi.pod | 14 | ||||
| -rw-r--r-- | pod/perlsyn.pod | 8 |
2 files changed, 18 insertions, 4 deletions
diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 2931da4c5b..e3dac62d06 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -1119,6 +1119,19 @@ Return the SV from the GV. =for hackers Found in file gv.h +=item gv_const_sv +X<gv_const_sv> + +If C<gv> is a typeglob whose subroutine entry is a constant sub eligible for +inlining, or C<gv> is a placeholder reference that would be promoted to such +a typeglob, then returns the value returned by the sub. Otherwise, returns +NULL. + + SV* gv_const_sv(GV* gv) + +=for hackers +Found in file gv.c + =item gv_fetchmeth X<gv_fetchmeth> @@ -4554,6 +4567,7 @@ X<sv_2cv> Using various gambits, try to get a CV from an SV; in addition, try if possible to set C<*st> and C<*gvp> to the stash and GV associated with it. +The flags in C<lref> are passed to sv_fetchsv. CV* sv_2cv(SV* sv, HV** st, GV** gvp, I32 lref) diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod index 31b919ee6c..3e78c7bd78 100644 --- a/pod/perlsyn.pod +++ b/pod/perlsyn.pod @@ -516,7 +516,7 @@ This construct is very flexible and powerful. For example: when (undef) { say '$foo is undefined'; } - + when ("foo") { say '$foo is the string "foo"'; } @@ -524,8 +524,8 @@ This construct is very flexible and powerful. For example: when ([1,3,5,7,9]) { say '$foo is an odd digit'; continue; # Fall through - } - + } + when ($_ < 100) { say '$foo is numerically less than 100'; } @@ -533,7 +533,7 @@ This construct is very flexible and powerful. For example: when (\&complicated_check) { say 'complicated_check($foo) is true'; } - + default { die q(I don't know what to do with $foo); } |