PathTools: check Config values early before chdir

In a perl core build, the @inc paths will be relative. If you change
directories before loading all of the files needed, they won't be able
to be found. Config.pm loads some of its values at runtime, so if they
are accessed after a chdir, it may fail.

One of the PathTools tests was relying on the fact that Config_heavy.pl
would be loaded by Test::More, before it did a chdir. Newer Test::More
won't do that, so the test would fail. Accessing the required Config
values early will prevent this failure.

This same issue is unlikely to impact anything outside core, as it
requires the perl core paths in @inc to be relative paths, which is
normally not the case.

Author: haarg

dist/PathTools/Cwd.pm

@@ -3,7 +3,7 @@ use strict;
 use Exporter;
 
 
-our $VERSION = '3.92';
+our $VERSION = '3.94';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//d;
 

dist/PathTools/lib/File/Spec.pm

@@ -4,7 +4,7 @@ use strict;
 
 # Keep $VERSION consistent in all *.pm files in this distribution, including
 # Cwd.pm.
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 my %module = (

dist/PathTools/lib/File/Spec/AmigaOS.pm

@@ -3,7 +3,7 @@ package File::Spec::AmigaOS;
 use strict;
 require File::Spec::Unix;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);

dist/PathTools/lib/File/Spec/Cygwin.pm

@@ -3,7 +3,7 @@ package File::Spec::Cygwin;
 use strict;
 require File::Spec::Unix;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);

dist/PathTools/lib/File/Spec/Epoc.pm

@@ -2,7 +2,7 @@ package File::Spec::Epoc;
 
 use strict;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 require File::Spec::Unix;

dist/PathTools/lib/File/Spec/Functions.pm

@@ -3,7 +3,7 @@ package File::Spec::Functions;
 use File::Spec;
 use strict;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 require Exporter;

dist/PathTools/lib/File/Spec/Mac.pm

@@ -4,7 +4,7 @@ use strict;
 use Cwd ();
 require File::Spec::Unix;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);

dist/PathTools/lib/File/Spec/OS2.pm

@@ -4,7 +4,7 @@ use strict;
 use Cwd ();
 require File::Spec::Unix;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);

dist/PathTools/lib/File/Spec/Unix.pm

@@ -3,7 +3,7 @@ package File::Spec::Unix;
 use strict;
 use Cwd ();
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 =head1 NAME

dist/PathTools/lib/File/Spec/VMS.pm

@@ -4,7 +4,7 @@ use strict;
 use Cwd ();
 require File::Spec::Unix;
 
-our $VERSION = '3.93';
+our $VERSION = '3.94';
 $VERSION =~ tr/_//d;
 
 our @ISA = qw(File::Spec::Unix);