[PATCH: perl-5.6.1 trial2 && perl@8671] VMS specific simplification for Pod::Find

[Peter Prymmer]

Hi,

The following patch ought to apply cleanly to both perl-5.6.1 trial2 and
perl@8671.  The test t/pod/find.t is the same and still passes on VMS.

--- perl-5.6.1-TRIAL2.orig/lib/Pod/Find.pm      Wed Feb  7 16:12:00 2001
+++ perl-5.6.1-TRIAL2/lib/Pod/Find.pm   Wed Feb  7 16:12:27 2001
@@ -242,7 +242,7 @@
 
 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 @@
     $_[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 <[EMAIL PROTECTED]>
End of Patch.

Peter Prymmer