diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-08-04 14:29:51 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-05 06:12:07 +0000 |
| commit | 90d1fc5d9717d620a09747684b1a0f435223e344 (patch) | |
| tree | 09319a71f6acadb7afeb3f2fdee6c89e1b2bbf7d /utils/dprofpp.PL | |
| parent | ce16148b511e61f533e8bd535082be8ea4b6dd8d (diff) | |
| download | perl-90d1fc5d9717d620a09747684b1a0f435223e344.tar.gz | |
(was Re: DProf tests with -p broken on VMS)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F2EFA7F.6070801@mac.com>
p4raw-id: //depot/perl@20488
Diffstat (limited to 'utils/dprofpp.PL')
| -rw-r--r-- | utils/dprofpp.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index 8c2ef79da0..d48b3bfdad 100644 --- a/utils/dprofpp.PL +++ b/utils/dprofpp.PL @@ -16,7 +16,7 @@ use File::Spec; chdir(dirname($0)); ($file = basename($0)) =~ s/\.PL$//; $file =~ s/\.pl$// if ($Config{'osname'} eq 'OS2'); # "case-forgiving" -$file =~ s/\.pl$/.com/ if ($Config{'osname'} eq 'VMS'); # "case-forgiving" +$file =~ s/\.pl$/.com/i if ($Config{'osname'} eq 'VMS'); # "case-forgiving" my $dprof_pm = File::Spec->catfile(File::Spec->updir, 'ext', 'Devel', 'DProf', 'DProf.pm'); my $VERSION = 0; |