From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 4 Aug 2003 19:29:51 +0000 (-0500)
Subject: (was Re: DProf tests with -p broken on VMS)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90d1fc5d9717d620a09747684b1a0f435223e344;p=p5sagit%2Fp5-mst-13.2.git

(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
---

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 8c2ef79..d48b3bf 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;