X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fdprofpp.PL;h=eabc7b1cd66e65af429989aa452b0dba0236fc65;hb=48065a2c562eee74d279c295da588acd3e77b931;hp=8c2ef79da0b8f9206e24b5695cf1f3e8894bd411;hpb=ccc0622a5e7618aee538d32edf64a5e4687cd025;p=p5sagit%2Fp5-mst-13.2.git

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