diff options
Diffstat (limited to 'Master/source/tlperl/Config.pm.diff')
| -rw-r--r-- | Master/source/tlperl/Config.pm.diff | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Master/source/tlperl/Config.pm.diff b/Master/source/tlperl/Config.pm.diff new file mode 100644 index 00000000000..acf2de4552d --- /dev/null +++ b/Master/source/tlperl/Config.pm.diff @@ -0,0 +1,38 @@ +--- 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, |