Integrate with Sarathy.

[p5sagit/p5-mst-13.2.git] / pod / pod2man.PL

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 61b6129..20610a8 100644 (file)
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -566,7 +566,7 @@ print <<'END';
 END
 
 print <<"END";
-.TH $name $section "$RP" "$date" "$center"
+.TH $name $section "$date" "$RP" "$center"
 .UC
 END
 
@@ -679,7 +679,7 @@ $indent = 0;
 $begun = "";
 
 # Unrolling [^-=A-Z>]|[A-Z](?!<)|[-=](?![A-Z]<)[\x00-\xFF] gives: // MRE pp 165.
-my $nonest = '(?x)              # Turn on /x mode.
+my $nonest = q{(?x)             # Turn on /x mode.
               (?:               # Group
                 [^-=A-Z>]*      # Anything that isn't a dash, equal sign or
                                 # closing hook isn't special. Eat as much as
@@ -695,7 +695,7 @@ my $nonest = '(?x)              # Turn on /x mode.
                   )             # End of special sequences.
                   [^-=A-Z>]*    # Followed by zero or more non-special chars. 
                 )*              # And we can repeat this as often as we can.
-              )';               # That's all folks.
+              )};               # That's all folks.
 
 while (<>) {
     if ($cutting) {
@@ -785,7 +785,7 @@ while (<>) {
        } {I<$1>\\|$2}gx;
 
        # convert simple variable references
-       s/(\s+)([\$\@%][\w:]+)(?!\()/${1}C<$2>/g;
+       s/(\s+)([\$\@%&*][\w:]+)(?!\()/${1}C<$2>/g;
 
        if (m{ (
                    [\-\w]+