diff options
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 8 |
1 files changed, 6 insertions, 2 deletions
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. |