From 2dde2d61b30c8b775ca2cbc17a9153c34b074291 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Jul 1998 03:55:10 +0000
Subject: cleaner page headers from pod2man

p4raw-id: //depot/perl@1290
---
 pod/pod2man.PL | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'pod')

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index fc4921bced..06e46b4295 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.
-- 
cgit v1.2.1