diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-08-05 19:18:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-06 05:18:32 +0000 |
| commit | 2693a1648dd84c050f2b4471acfeaa9b91611d3c (patch) | |
| tree | 89a71504ce900c8e5b38a767fe63b43d62c4911b | |
| parent | 02d51d12d1be7a3f46d87dbd220b0acd1f787f57 (diff) | |
| download | perl-2693a1648dd84c050f2b4471acfeaa9b91611d3c.tar.gz | |
dprofpp.PL again -- #20488 thinko
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F308FAC.4090409@mac.com>
(from vmsperl list)
p4raw-id: //depot/perl@20513
| -rw-r--r-- | utils/dprofpp.PL | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index d48b3bfdad..eabc7b1cd6 100644 --- a/utils/dprofpp.PL +++ b/utils/dprofpp.PL @@ -14,9 +14,8 @@ use File::Spec; # This forces PL files to create target in same directory as PL file. # 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 'OS2'); # "case-forgiving" -$file =~ s/\.pl$/.com/i if ($Config{'osname'} eq 'VMS'); # "case-forgiving" +($file = basename($0)) =~ s/\.PL$//i; +$file .= '.COM' if ($^O eq 'VMS'); my $dprof_pm = File::Spec->catfile(File::Spec->updir, 'ext', 'Devel', 'DProf', 'DProf.pm'); my $VERSION = 0; |