[svn:Module-Build] r10129 - Module-Build/trunk/lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Sat Oct 27 21:48:52 2007
New Revision: 10129

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
Fix some wacky perl paths that happen in blead

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sat Oct 27 21:48:52 2007
@@ -7,6 +7,7 @@
 BEGIN { require 5.00503 }
 
 use Carp;
+use Cwd ();
 use File::Copy ();
 use File::Find ();
 use File::Path ();
@@ -319,7 +320,6 @@
 }
 
 sub cwd {
-  require Cwd;
   return Cwd::cwd();
 }
 
@@ -435,7 +435,7 @@
 
     # CBuilder is also in the core, so it should be available here
     require ExtUtils::CBuilder;
-    my $perl_src = ExtUtils::CBuilder->perl_src;
+    my $perl_src = Cwd::realpath( ExtUtils::CBuilder->perl_src );
     if ( defined($perl_src) && length($perl_src) ) {
       my $uninstperl =
         File::Spec->rel2abs(File::Spec->catfile( $perl_src, $perl_basename ));