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 (file)
--- 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 {