diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-10-06 19:19:33 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-10-06 19:19:33 -0500 |
| commit | 9ed9b795caa408a925999e1d90f9932e35b3ab10 (patch) | |
| tree | 53025dd55cd9f01e39725fd09b4493757c064e66 /make_ext.pl | |
| parent | 6709de8803f0c22efc6a56325285452eb6dbb1e1 (diff) | |
| download | perl-9ed9b795caa408a925999e1d90f9932e35b3ab10.tar.gz | |
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.
Diffstat (limited to 'make_ext.pl')
| -rw-r--r-- | make_ext.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/make_ext.pl b/make_ext.pl index 8f3e6dbf42..3c25b280ab 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; |