From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 2 Aug 1998 03:29:41 +0000 (+0000)
Subject: MM_Win32::maybe_command() case-insesitivity tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b2708c8874957427cdc4340c4d482c88a9aef90;p=p5sagit%2Fp5-mst-13.2.git

MM_Win32::maybe_command() case-insesitivity tweak

p4raw-id: //depot/maint-5.005/perl@1679
---

diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
index 53d7b4f..7894ddd 100644
--- a/lib/ExtUtils/MM_Win32.pm
+++ b/lib/ExtUtils/MM_Win32.pm
@@ -74,7 +74,7 @@ sub maybe_command {
     for (@e) { $e .= "\Q$_\E|" }
     chop $e;
     # see if file ends in one of the known extensions
-    if ($file =~ /($e)$/) {
+    if ($file =~ /($e)$/i) {
 	return $file if -e $file;
     }
     else {