--- Config.pm.orig 2021-02-23 21:23:58.000000000 +0100 +++ Config.pm 2021-02-25 16:10:06.000000000 +0100 @@ -82,9 +82,14 @@ die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; } +my $rootdir = __FILE__; +$rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!; +$rootdir =~ s!/!\\!g; +my $mingdir = "E:\\wprogs\\mingw2021"; + # tie returns the object, so the value returned to require will be true. tie %Config, 'Config', { - archlibexp => 'e:\\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 => 'E:\\wprogs\\mingw2021\\lib', + libpth => "$mingdir\\lib", osname => 'MSWin32', osvers => '10.0.19042.804', path_sep => ';', - privlibexp => 'e:\\tlperl\\lib', - scriptdir => 'e:\\tlperl\\bin', - sitearchexp => 'e:\\tlperl\\site\\lib', - sitelibexp => 'e:\\tlperl\\site\\lib', + privlibexp => "$rootdir\\lib", + scriptdir => "$rootdir\\bin", + sitearchexp => "$rootdir\\site\\lib", + sitelibexp => "$rootdir\\site\\lib", so => 'dll', useithreads => 'define', usevendorprefix => undef,