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 (file)
--- 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;