From 2eec1a1ed8f4ac423d53f3e0bb68e0581ea99aab Mon Sep 17 00:00:00 2001
From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 7 Feb 2001 09:07:39 -0800
Subject: 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
---
 lib/Pod/Find.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/Pod/Find.pm')

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>
-- 
cgit v1.2.1