diff options
-rw-r--r-- | op.c | 2 | ||||
-rw-r--r-- | pad.c | 19 | ||||
-rw-r--r-- | t/porting/known_pod_issues.dat | 1 | ||||
-rw-r--r-- | universal.c | 3 |
4 files changed, 14 insertions, 11 deletions
@@ -11711,7 +11711,7 @@ The C-level function pointer is returned in I<*ckfun_p>, and an SV argument for it is returned in I<*ckobj_p>. The function is intended to be called in this manner: - entersubop = (*ckfun_p)(aTHX_ entersubop, namegv, (*ckobj_p)); + entersubop = (*ckfun_p)(aTHX_ entersubop, namegv, (*ckobj_p)); In this call, I<entersubop> is a pointer to the C<entersub> op, which may be replaced by the check function, and I<namegv> is a GV @@ -79,11 +79,14 @@ the variable. The COP_SEQ_RANGE_LOW and _HIGH fields form a range valid. During compilation, these fields may hold the special value PERL_PADSEQ_INTRO to indicate various stages: - COP_SEQ_RANGE_LOW _HIGH - ----------------- ----- - PERL_PADSEQ_INTRO 0 variable not yet introduced: { my ($x - valid-seq# PERL_PADSEQ_INTRO variable in scope: { my ($x) - valid-seq# valid-seq# compilation of scope complete: { my ($x) } + COP_SEQ_RANGE_LOW _HIGH + ----------------- ----- + PERL_PADSEQ_INTRO 0 variable not yet introduced: + { my ($x + valid-seq# PERL_PADSEQ_INTRO variable in scope: + { my ($x) + valid-seq# valid-seq# compilation of scope complete: + { my ($x) } For typed lexicals PadnameTYPE points at the type stash. For C<our> lexicals, PadnameOURSTASH points at the stash of the associated global (so @@ -582,9 +585,9 @@ identifies the type. If I<ourstash> is non-null, it's a lexical reference to a package variable, and this identifies the package. The following flags can be OR'ed together: - padadd_OUR redundantly specifies if it's a package var - padadd_STATE variable will retain value persistently - padadd_NO_DUP_CHECK skip check for lexical shadowing + padadd_OUR redundantly specifies if it's a package var + padadd_STATE variable will retain value persistently + padadd_NO_DUP_CHECK skip check for lexical shadowing =cut */ diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index a00c30db1a..52b729db05 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -265,7 +265,6 @@ pod/perl.pod Verbatim line length including indents exceeds 79 by 8 pod/perlaix.pod Verbatim line length including indents exceeds 79 by 11 pod/perlandroid.pod Verbatim line length including indents exceeds 79 by 2 pod/perlapi.pod ? Should you be using L<...> instead of 80 -pod/perlapi.pod Verbatim line length including indents exceeds 79 by 6 pod/perlapio.pod Verbatim line length including indents exceeds 79 by 5 pod/perlbook.pod Verbatim line length including indents exceeds 79 by 1 pod/perlcall.pod Verbatim line length including indents exceeds 79 by 2 diff --git a/universal.c b/universal.c index 2e446dd6d9..4b650c5e9e 100644 --- a/universal.c +++ b/universal.c @@ -294,7 +294,8 @@ A specialised variant of C<croak()> for emitting the usage message for xsubs works out the package name and subroutine name from C<cv>, and then calls C<croak()>. Hence if C<cv> is C<&ouch::awk>, it would call C<croak> as: - Perl_croak(aTHX_ "Usage: %"SVf"::%"SVf"(%s)", "ouch" "awk", "eee_yow"); + Perl_croak(aTHX_ "Usage: %"SVf"::%"SVf"(%s)", "ouch" "awk", + "eee_yow"); =cut */ |