diff options
Diffstat (limited to 'pod/podselect.PL')
| -rw-r--r-- | pod/podselect.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/podselect.PL b/pod/podselect.PL index 3fa411846b..f2ba80a73b 100644 --- a/pod/podselect.PL +++ b/pod/podselect.PL @@ -16,8 +16,8 @@ use Cwd; $origdir = cwd; chdir(dirname($0)); ($file = basename($0)) =~ s/\.PL$//; -$file =~ s/\.pl$// - if ($^O eq 'VMS' or $^O eq 'os2' or $^O eq 'dos'); # "case-forgiving" +$file =~ s/\.pl$// if ($^O eq 'os2' or $^O eq 'dos'); # "case-forgiving" +$file =~ s/\.pl$/.com/ if ($^O eq 'VMS'); # "case-forgiving" open OUT,">$file" or die "Can't create $file: $!"; |