Split NAME line on multiple whitespaces

For:  RT # 133683

pod/perlmodlib.pod is a file generated by pod/perlmodlib.PL, which is
run by 'miniperl' during 'make'.  That program parses the 'NAME' header
of .pod files and fragments of POD found in 'regen/opcode.pl'.  The POD
for B::Op_private is one such fragment.  Correcting a superfluous
whitespace in that fragment did not suffice to prevent the downstream
formatting error reported in the RT -- an error visible with 'pod2text'
and 'pod2html' as well.  We also had to make the regex which
perlmodlib.PL uses to parse the 'NAME' header more flexible.

diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
index 0c92038..5f98437 100644 (file)
--- a/lib/B/Op_private.pm
+++ b/lib/B/Op_private.pm
@@ -14,7 +14,7 @@
 
 =head1 NAME
 
-B::Op_private -  OP op_private flag definitions
+B::Op_private - OP op_private flag definitions
 
 =head1 SYNOPSIS
 

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index c33f692..bfc7860 100644 (file)
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -74,7 +74,7 @@ for my $filename (@files) {
     close MOD
         or die "Error closing $filename: $!";
 
-    ($name, $thing) = split / --? /, $title, 2;
+    ($name, $thing) = split /\s+--?\s+/, $title, 2;
 
     unless ($name and $thing) {
        warn "$filename missing name\n"  unless $name;

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 0117866..672f55c 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -404,7 +404,7 @@ sub print_B_Op_private {
     my $header = <<'EOF';
 @=head1 NAME
 @
-@B::Op_private -  OP op_private flag definitions
+@B::Op_private - OP op_private flag definitions
 @
 @=head1 SYNOPSIS
 @