From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Jul 1998 03:55:10 +0000 (+0000)
Subject: cleaner page headers from pod2man
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2dde2d61b30c8b775ca2cbc17a9153c34b074291;p=p5sagit%2Fp5-mst-13.2.git

cleaner page headers from pod2man

p4raw-id: //depot/perl@1290
---

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index fc4921b..06e46b4 100644
--- 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.