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);

Reply via email to