From: Steve Hay <SteveHay@planit.com>
Date: Tue, 29 Sep 2009 16:28:04 +0000 (+0100)
Subject: On Win32, load File::Spec::Functions before chdir()ing somewhere where the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d53619e84b23c168ecb5cfd35e6cfb10dd066d0;p=p5sagit%2Fp5-mst-13.2.git

On Win32, load File::Spec::Functions before chdir()ing somewhere where the
relative paths in @INC don't work.
---

diff --git a/make_ext.pl b/make_ext.pl
index 81369b0..7734bf5 100644
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -3,7 +3,13 @@ use strict;
 use warnings;
 use Config;
 BEGIN {
-    unshift @INC, $^O eq 'MSWin32' ? ('../cpan/Cwd', '../cpan/Cwd/lib') : 'cpan/Cwd';
+    if ($^O eq 'MSWin32') {
+	unshift @INC, ('../cpan/Cwd', '../cpan/Cwd/lib');
+	require File::Spec::Functions;
+    }
+    else {
+	unshift @INC, 'cpan/Cwd';
+    }
 }
 use Cwd;
 
@@ -288,11 +294,6 @@ sub build_extension {
     # another process has half-written.
     my @new_inc = ((map {"$up/$_"} @toolchain), $lib_dir);
     if ($is_Win32) {
-	# It feels somewhat wrong putting this in a loop, but require caches
-	# results, so is fast for subsequent calls. To my mind it's clearer
-	# here than putting the require somewhere far from the code it relates
-	# to.
-	require File::Spec::Functions;
 	@new_inc = map {File::Spec::Functions::rel2abs($_)} @new_inc;
     }
     $ENV{PERL5LIB} = join $Config{path_sep}, @new_inc;