Wrap long lines in B::Op_private pod

diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
index e038bc2..1659e7d 100644 (file)
--- a/lib/B/Op_private.pm
+++ b/lib/B/Op_private.pm
@@ -69,13 +69,13 @@ The general format of this hash ref is
         bitcount_def  => 'OPpFOO_BITS',
 
         # If present, Concise etc will display the value with a 'FOO='
-        # prefix. If it equals '-', then Concise will treat the bit field
-        # as raw bits and not try to interpret it.
+        # prefix. If it equals '-', then Concise will treat the bit
+        # field as raw bits and not try to interpret it.
         label         => 'FOO',
 
-        # If present, specifies the names of some defines and the display
-        # labels that are used to assign meaning to particular integer
-        # values within the bit field; e.g. 3 is displayed as 'C'.
+        # 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'.
         enum          => [ qw(
                              1   OPpFOO_A  A
                              2   OPpFOO_B  B

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 34f9d4b..9baea56 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -446,13 +446,13 @@ sub print_B_Op_private {
 @        bitcount_def  => 'OPpFOO_BITS',
 @
 @        # If present, Concise etc will display the value with a 'FOO='
-@        # prefix. If it equals '-', then Concise will treat the bit field
-@        # as raw bits and not try to interpret it.
+@        # prefix. If it equals '-', then Concise will treat the bit
+@        # field as raw bits and not try to interpret it.
 @        label         => 'FOO',
 @
-@        # If present, specifies the names of some defines and the display
-@        # labels that are used to assign meaning to particular integer
-@        # values within the bit field; e.g. 3 is displayed as 'C'.
+@        # 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'.
 @        enum          => [ qw(
 @                             1   OPpFOO_A  A
 @                             2   OPpFOO_B  B