From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 6 Jan 2008 18:00:41 +0000 (+0000)
Subject: Don't use grep in scalar context
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bc0704bd7190ef9fa9ff3733bd1e918b6f7f4bb;p=p5sagit%2Fp5-mst-13.2.git

Don't use grep in scalar context

p4raw-id: //depot/perl@32879
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 2960572..9a8e0e8 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -18,7 +18,7 @@ use vars qw($VERSION @ISA
 
 use ExtUtils::MakeMaker qw($Verbose neatvalue);
 
-$VERSION = '6.42';
+$VERSION = '6.42_01';
 
 require ExtUtils::MM_Any;
 @ISA = qw(ExtUtils::MM_Any);
@@ -2453,7 +2453,7 @@ $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
 	push @$extra, $_;
     }
 
-    grep(s/^(.*)/"-I$1"/, @{$perlinc || []});
+    map(s/^(.*)/"-I$1"/, @{$perlinc || []});
 
     $target ||= "perl";
     $tmp    ||= ".";