Wrap long pod lines in B::Op_private for real

I forgot to re-run podcheck.t with PERL_POD_PEDANTIC set last time.

diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
index 1faa630..f7948d3 100644 (file)
--- a/lib/B/Op_private.pm
+++ b/lib/B/Op_private.pm
@@ -74,9 +74,10 @@ The general format of this hash ref is
         # field as raw bits and not try to interpret it.
         label         => 'FOO',
 
-        # If present, specifies the names of some defines and the dis-
-        # play labels that are used to assign meaning to particular inte-
-        # ger values within the bit field; e.g. 3 is displayed as 'C'.
+        # If present, specifies the names of some defines and the
+        # display labels that are used to assign meaning to particu-
+        # lar integer values within the bit field; e.g. 3 is dis-
+        # played as 'C'.
         enum          => [ qw(
                              1   OPpFOO_A  A
                              2   OPpFOO_B  B

diff --git a/regen/opcode.pl b/regen/opcode.pl
index f46c79c..ee71935 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -451,9 +451,10 @@ sub print_B_Op_private {
 @        # field as raw bits and not try to interpret it.
 @        label         => 'FOO',
 @
-@        # If present, specifies the names of some defines and the dis-
-@        # play labels that are used to assign meaning to particular inte-
-@        # ger values within the bit field; e.g. 3 is displayed as 'C'.
+@        # If present, specifies the names of some defines and the
+@        # display labels that are used to assign meaning to particu-
+@        # lar integer values within the bit field; e.g. 3 is dis-
+@        # played as 'C'.
 @        enum          => [ qw(
 @                             1   OPpFOO_A  A
 @                             2   OPpFOO_B  B