diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 15:42:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 15:42:28 +0000 |
| commit | c93fa8177be816b728baa070d16f5574403845f6 (patch) | |
| tree | 4808e1f396a09528ccea5aca00bedca957836837 /pod/pod2usage.PL | |
| parent | 8c8ad484ae56ad5a81dc3b76a40859fc90c16a10 (diff) | |
| parent | 7e6fa307436d3e019e355ee1012a967957762854 (diff) | |
| download | perl-c93fa8177be816b728baa070d16f5574403845f6.tar.gz | |
integrate cfgperl and vmsperl contents into mainline
p4raw-id: //depot/perl@5486
Diffstat (limited to 'pod/pod2usage.PL')
| -rw-r--r-- | pod/pod2usage.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/pod2usage.PL b/pod/pod2usage.PL index 24e93fa350..e0f70b2ca4 100644 --- a/pod/pod2usage.PL +++ b/pod/pod2usage.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: $!"; |