summaryrefslogtreecommitdiff
path: root/Master/source/tlperl/Config.pm.diff
blob: 8f26c3db1d7ab9ffe8483002a7cba8a7d35e9cf3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
--- 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,