summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-03 15:42:28 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-03 15:42:28 +0000
commitc93fa8177be816b728baa070d16f5574403845f6 (patch)
tree4808e1f396a09528ccea5aca00bedca957836837 /utils
parent8c8ad484ae56ad5a81dc3b76a40859fc90c16a10 (diff)
parent7e6fa307436d3e019e355ee1012a967957762854 (diff)
downloadperl-c93fa8177be816b728baa070d16f5574403845f6.tar.gz
integrate cfgperl and vmsperl contents into mainline
p4raw-id: //depot/perl@5486
Diffstat (limited to 'utils')
-rw-r--r--utils/dprofpp.PL5
1 files changed, 2 insertions, 3 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index a6a1d911a5..51e8d7839a 100644
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -14,9 +14,8 @@ use File::Basename qw(&basename &dirname);
# This is so that make depend always knows where to find PL derivatives.
chdir(dirname($0));
($file = basename($0)) =~ s/\.PL$//;
-$file =~ s/\.pl$//
- if ($Config{'osname'} eq 'VMS' or
- $Config{'osname'} eq 'OS2'); # "case-forgiving"
+$file =~ s/\.pl$// if ($Config{'osname'} eq 'OS2'); # "case-forgiving"
+$file =~ s/\.pl$/.com/ if ($Config{'osname'} eq 'VMS'); # "case-forgiving"
my $dprof_pm = '../ext/Devel/DProf/DProf.pm';
my $VERSION = 0;