In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9ed9b795caa408a925999e1d90f9932e35b3ab10?hp=6709de8803f0c22efc6a56325285452eb6dbb1e1>
- Log ----------------------------------------------------------------- commit 9ed9b795caa408a925999e1d90f9932e35b3ab10 Author: Craig A. Berry <[email protected]> Date: Wed Oct 6 19:19:33 2010 -0500 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. ----------------------------------------------------------------------- Summary of changes: make_ext.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) 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; -- Perl5 Master Repository
