[Module-build-checkins] ExtUtils-CBuilder/lib/ExtUtils/CBuilder Base.pm,1.19,1.20

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24694/lib/ExtUtils/CBuilder

Modified Files:
	Base.pm 
Log Message:
When searching the perl source tree, search the current directory first.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Base.pm	3 Oct 2005 22:05:14 -0000	1.19
+++ Base.pm	15 Mar 2006 02:25:25 -0000	1.20
@@ -240,11 +240,11 @@
 
   return unless $ENV{PERL_CORE};
 
-  my $Updir  = File::Spec->updir;
-  my $dir = $Updir;
+  my $Updir = File::Spec->updir;
+  my $dir   = File::Spec->curdir;
 
   # Try up to 5 levels upwards
-  for (1..5) {
+  for (0..5) {
     if (
 	-f File::Spec->catfile($dir,"config_h.SH")
 	&&
@@ -257,9 +257,9 @@
 
     $dir = File::Spec->catdir($dir, $Updir);
   }
-  
+
   warn "PERL_CORE is set but I can't find your perl source!\n";
-  return;
+  return ''; # return empty string if $ENV{PERL_CORE} but can't find dir ???
 }
 
 # directory of perl's include files