Put $Config{perlpath} before other candidates in find_perl_interprete…

…r(), so the user can change it if desired

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@4995 50811bd7-b8ce-0310-adc1-d9db26280581

lib/Module/Build/Base.pm

@@ -188,10 +188,9 @@ sub find_perl_interpreter {
     $thisperl .= $exe unless $thisperl =~ m/$exe$/i;
   }
 
-  my @candidates = map File::Spec->catfile($_, $thisperl), File::Spec->path();
-  push @candidates, $c->{perlpath};
-
-  foreach my $perl (@candidates) {
+  foreach my $perl ( $c->{perlpath},
+		     map File::Spec->catfile($_, $thisperl), File::Spec->path()
+		   ) {
     return $perl if -f $perl and $proto->_perl_is_same($perl);
   }
   return;