RT 78836: vms/vms.c: dubious expressions

[perl5.git] / make_ext.pl

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;