--- Config.pm.orig 2022-07-11 12:22:33.494504400 +0200 +++ Config.pm 2022-07-11 13:35:06.559388900 +0200 @@ -81,10 +81,15 @@ goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; } + +my $rootdir = __FILE__; +$rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!; +$rootdir =~ s!/!\\!g; +my $mingdir = "E:\\mingw64"; # 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-x64-multi-thread', cc => 'gcc', d_readlink => 'define', @@ -96,14 +101,14 @@ inc_version_list => '', intsize => '4', ldlibpthname => '', - libpth => 'E:\\mingw64\\lib E:\\mingw64\\x86_64-w64-mingw32\\lib E:\\mingw64\\lib\\gcc\\x86_64-w64-mingw32\\8.3.0', + libpth => "$mingdir\\lib $mingdir\\x86_64-w64-mingw32\\lib $mingdir\\lib\\gcc\\x86_64-w64-mingw32\\8.3.0", osname => 'MSWin32', osvers => '10.0.19042.508', 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,