summaryrefslogtreecommitdiff
path: root/Master/source/tlperl/Config.pm.diff
diff options
context:
space:
mode:
Diffstat (limited to 'Master/source/tlperl/Config.pm.diff')
-rw-r--r--Master/source/tlperl/Config.pm.diff38
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,