From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 7 Oct 2010 00:19:33 +0000 (-0500)
Subject: No distinction between .PL and .pl if case is not preserved.
X-Git-Tag: v5.13.6~234
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/9ed9b795caa408a925999e1d90f9932e35b3ab10

No distinction between .PL and .pl if case is not preserved.

Follow-up to 13b5e8d8173af2197798ae78b4520ece8cb1151c.

On VMS, the CRTL downcases filenames by default, so pod2foo.PL
comes through as pod2foo.pl.  We need to match that so we paste
on the right extension for the generated command procedure.
---

diff --git a/make_ext.pl b/make_ext.pl
index 8f3e6db..3c25b28 100644
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -387,7 +387,7 @@ my $script_ext = $^O eq 'VMS' ? '.com' : '';
 my %%pod_scripts;
 foreach (glob('pod*.PL')) {
     my $script = $_;
-    s/.PL$/$script_ext/;
+    s/.PL$/$script_ext/i;
     $pod_scripts{$script} = $_;
 }
 my @exe_files = values %%pod_scripts;