better caption for man pages (inspirated by mdv): remove number from title

2 files changed, 16 insertions, 16 deletions

diff --git a/MANIFEST b/MANIFEST
index 55af9a7d..191bb6ca 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -81,20 +81,20 @@ po/vi.po
 po/wa.po
 po/zh_CN.po
 po/zh_TW.po
-pod/proxy.cfg.5.pod
-pod/rurpme.8.pod
-pod/rurpmi.8.pod
-pod/urpme.8.pod
-pod/urpmf.8.pod
-pod/urpmi.8.pod
-pod/urpmi.addmedia.8.pod
-pod/urpmi.cfg.5.pod
-pod/urpmi.files.5.pod
-pod/urpmi.recover.8.pod
-pod/urpmi.removemedia.8.pod
-pod/urpmi.update.8.pod
-pod/urpmihowto.8.pod
-pod/urpmq.8.pod
+pod/5/proxy.cfg.pod
+pod/8/rurpme.pod
+pod/8/rurpmi.pod
+pod/8/urpme.pod
+pod/8/urpmf.pod
+pod/8/urpmi.pod
+pod/8/urpmi.addmedia.pod
+pod/5/urpmi.cfg.pod
+pod/5/urpmi.files.pod
+pod/8/urpmi.recover.pod
+pod/8/urpmi.removemedia.pod
+pod/8/urpmi.update.pod
+pod/8/urpmihowto.pod
+pod/8/urpmq.pod
 rpm-find-leaves
 rurpme
 rurpmi
diff --git a/Makefile.PL b/Makefile.PL
index 4b8f53e7..988bdb56 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -162,10 +162,10 @@ WriteMakefile(
 	map {
 	    my $targ = $_;
 	    $targ =~ s{^pod/}{};
-	    $targ =~ s/\.(\d)\.pod$//;
+	    $targ =~ s{^(\d)/(.*)\.pod$}{$2};
 	    my $section = $1 || 1;
 	    ( $_ => "\$(INST_MAN${section}DIR)/$targ.$section" );
-	} <pod/*.pod>, $with_po ? <pod/*/*.pod> : ()
+	} <pod/*/*.pod>, $with_po ? <pod/*/*.pod> : ()
     },
     dist		=> { COMPRESS => "xz -f", SUFFIX => ".xz" },
 );