diff options
Diffstat (limited to 'make_ext.pl')
-rw-r--r-- | make_ext.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/make_ext.pl b/make_ext.pl index e272d5b111..81369b0510 100644 --- a/make_ext.pl +++ b/make_ext.pl @@ -6,7 +6,6 @@ BEGIN { unshift @INC, $^O eq 'MSWin32' ? ('../cpan/Cwd', '../cpan/Cwd/lib') : 'cpan/Cwd'; } use Cwd; -use File::Spec::Functions qw(rel2abs); # To clarify, this isn't the entire suite of modules considered "toolchain" # It's not even all modules needed to build ext/ @@ -289,7 +288,12 @@ sub build_extension { # another process has half-written. my @new_inc = ((map {"$up/$_"} @toolchain), $lib_dir); if ($is_Win32) { - @new_inc = map {rel2abs($_)} @new_inc; + # 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; $ENV{PERL_CORE} = 1; |