In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8560fbdd574815f9b1e6690cbac213446515ff2e?hp=b7c1f088bbb124804cdec44fb11a94109473efed>
- Log ----------------------------------------------------------------- commit 8560fbdd574815f9b1e6690cbac213446515ff2e Author: Karl Williamson <[email protected]> Date: Thu Apr 23 18:10:31 2015 -0600 perlapi: Wrap long verbatim lines to 79 columns M op.c M pad.c M t/porting/known_pod_issues.dat M universal.c commit a31f9aef2d49956a5310036eb86435caf0e2dfb6 Author: Karl Williamson <[email protected]> Date: Thu Apr 23 18:21:38 2015 -0600 Regen podcheck db Recent commits have caused it to fail under -i-pedantic M t/porting/known_pod_issues.dat ----------------------------------------------------------------------- Summary of changes: op.c | 2 +- pad.c | 19 +++++++++++-------- t/porting/known_pod_issues.dat | 3 +-- universal.c | 3 ++- 4 files changed, 15 insertions(+), 12 deletions(-) diff --git a/op.c b/op.c index afaae61..1581f45 100644 --- a/op.c +++ b/op.c @@ -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 diff --git a/pad.c b/pad.c index 2d33779..d8789ab 100644 --- a/pad.c +++ b/pad.c @@ -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 b877c9a..52b729d 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -264,8 +264,7 @@ os2/os2/os2-rexx/rexx.pm Verbatim line length including indents exceeds 79 by 1 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 76 -pod/perlapi.pod Verbatim line length including indents exceeds 79 by 6 +pod/perlapi.pod ? Should you be using L<...> instead of 80 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 2e446dd..4b650c5 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 */ -- Perl5 Master Repository
