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 | |
| 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.
| -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; |