cleaner page headers from pod2man

p4raw-id: //depot/perl@1290

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index fc4921b..06e46b4 100644 (file)
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -417,8 +417,12 @@ $name =~ s-//+-/-g;
 if ($name =~ s-^.*?/lib/[^/]*perl[^/]*/--i
        or $name =~ s-^.*?/[^/]*perl[^/]*/lib/--i
        or $name =~ s-^.*?/[^/]*perl[^/]*/--i) {
-    # Lose ^arch/version/.
-    $name =~ s-^[^/]+/\d+\.\d+/--;
+    # Lose ^site(_perl)?/.
+    $name =~ s-^site(_perl)?/--;
+    # Lose ^arch/.     (XXX should we use Config? Just for archname?)
+    $name =~ s~^(.*-$^O|$^O-.*)/~~o;
+    # Lose ^version/.
+    $name =~ s-^\d+\.\d+/--;
 }
 
 # Translate Getopt/Long to Getopt::Long, etc.