diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-02-07 09:07:39 -0800 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-02-08 19:12:47 +0000 |
| commit | 2eec1a1ed8f4ac423d53f3e0bb68e0581ea99aab (patch) | |
| tree | d9ccc18f32989c99a837ab70cd0f89e1b863ebb1 /lib/Pod/Find.pm | |
| parent | b81d288d32e5f8c48e06b55d9bb7034869db0240 (diff) | |
| download | perl-2eec1a1ed8f4ac423d53f3e0bb68e0581ea99aab.tar.gz | |
VMS specific simplificationfor Pod::Find
Message-Id: <Pine.OSF.4.10.10102071704150.411763-100000@aspara.forte.com
p4raw-link: @8671 on //depot/perl: 4617e9a32e0e4a2e250fab079883a8a083804e1c
p4raw-id: //depot/perl@8712
Diffstat (limited to 'lib/Pod/Find.pm')
| -rw-r--r-- | lib/Pod/Find.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm index 516a624fce..6d4907ce37 100644 --- a/lib/Pod/Find.pm +++ b/lib/Pod/Find.pm @@ -242,7 +242,7 @@ sub _check_and_extract_name { The function B<simplify_name> is equivalent to B<basename>, but also strips Perl-like extensions (.pm, .pl, .pod) and extensions like -F<.bat>, F<.cmd> on Win32 and OS/2, respectively. +F<.bat>, F<.cmd> on Win32 and OS/2, or F<.com> on VMS, respectively. =cut @@ -262,6 +262,8 @@ sub _simplify { $_[0] =~ s/\.(pod|pm|plx?)\z//i; # strip meaningless extensions on Win32 and OS/2 $_[0] =~ s/\.(bat|exe|cmd)\z//i if($^O =~ /win|os2/i); + # strip meaningless extensions on VMS + $_[0] =~ s/\.(com)\z//i if($^O eq 'VMS'); } # contribution from Tim Jenness <t.jenness@jach.hawaii.edu> |