Don't use grep in scalar context
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 6 Jan 2008 18:00:41 +0000 (18:00 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 6 Jan 2008 18:00:41 +0000 (18:00 +0000)
p4raw-id: //depot/perl@32879

lib/ExtUtils/MM_Unix.pm

index 2960572..9a8e0e8 100644 (file)
@@ -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    ||= ".";