perlapi: Wrap long verbatim lines to 79 columns

diff --git a/op.c b/op.c
index afaae61..1581f45 100644 (file)
--- 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 (file)
--- 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 a00c30d..52b729d 100644 (file)
--- 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 2e446dd..4b650c5 100644 (file)
--- 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
 */