--- Config.pm.orig 2020-03-05 02:19:07.066656100 +0100 +++ Config.pm 2020-03-05 22:07:40.705049779 +0100 @@ -82,9 +82,14 @@ die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; } +my $rootdir = __FILE__; +$rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!; +$rootdir =~ s!/!\\!g; +my $mingdir = "D:\\mingw2020"; + # tie returns the object, so the value returned to require will be true. tie %Config, 'Config', { - archlibexp => 'd:\\tlperl\\lib', + archlibexp => "$rootdir\\lib", archname => 'MSWin32-x86-multi-thread', cc => 'gcc', d_readlink => undef, @@ -96,14 +101,14 @@ inc_version_list => '', intsize => '4', ldlibpthname => '', - libpth => 'D:\\mingw2020\\lib', + libpth => "$mingdir\\lib", osname => 'MSWin32', osvers => '10.0.18363.418', path_sep => ';', - privlibexp => 'd:\\tlperl\\lib', - scriptdir => 'd:\\tlperl\\bin', - sitearchexp => 'd:\\tlperl\\site\\lib', - sitelibexp => 'd:\\tlperl\\site\\lib', + privlibexp => "$rootdir\\lib", + scriptdir => "$rootdir\\bin", + sitearchexp => "$rootdir\\site\\lib", + sitelibexp => "$rootdir\\site\\lib", so => 'dll', useithreads => 'define', usevendorprefix => undef,