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
|
