Author: kwilliams
Date: Mon Oct 29 18:36:50 2007
New Revision: 10132
Modified:
ExtUtils-CBuilder/trunk/Build.PL
ExtUtils-CBuilder/trunk/Changes
ExtUtils-CBuilder/trunk/lib/ExtUtils/CBuilder/Base.pm
Log:
Use Cwd::realpath() to clean up perl_src retval
Modified: ExtUtils-CBuilder/trunk/Build.PL
==============================================================================
--- ExtUtils-CBuilder/trunk/Build.PL (original)
+++ ExtUtils-CBuilder/trunk/Build.PL Mon Oct 29 18:36:50 2007
@@ -8,6 +8,7 @@
'File::Basename' => 0,
'File::Spec' => 0,
'Text::ParseWords' => 0,
+ 'Cwd' => 0,
},
build_requires => {
'Test' => 0,
Modified: ExtUtils-CBuilder/trunk/Changes
==============================================================================
--- ExtUtils-CBuilder/trunk/Changes (original)
+++ ExtUtils-CBuilder/trunk/Changes Mon Oct 29 18:36:50 2007
@@ -1,5 +1,8 @@
Revision history for Perl extension ExtUtils::CBuilder.
+ - Clean up perl_src path using Cwd::realpath(). Only affects usage
+ as part of the perl core.
+
- Protect $., $@, $!, $^E, and $? from any clobbering that might
occur in our DESTROY method. [Zefram]
Modified: ExtUtils-CBuilder/trunk/lib/ExtUtils/CBuilder/Base.pm
==============================================================================
--- ExtUtils-CBuilder/trunk/lib/ExtUtils/CBuilder/Base.pm (original)
+++ ExtUtils-CBuilder/trunk/lib/ExtUtils/CBuilder/Base.pm Mon Oct 29
18:36:50 2007
@@ -3,6 +3,7 @@
use strict;
use File::Spec;
use File::Basename;
+use Cwd ();
use Config;
use Text::ParseWords;
@@ -252,7 +253,7 @@
&&
-f File::Spec->catfile($dir,"lib","Exporter.pm")
) {
- return $dir;
+ return Cwd::realpath( $dir );
}
$dir = File::Spec->catdir($dir, $Updir);