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
|
--- Config.pm.orig 2022-03-01 21:42:18.929802600 +0100
+++ Config.pm 2022-03-04 18:10:13.257294472 +0100
@@ -82,9 +82,14 @@
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
}
+my $rootdir = __FILE__;
+$rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!;
+$rootdir =~ s!/!\\!g;
+my $mingdir = "E:\\mingw";
+
# 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 => 'define',
@@ -96,14 +101,14 @@
inc_version_list => '',
intsize => '4',
ldlibpthname => '',
- libpth => 'E:\\MinGW\\lib E:\\MinGW\\i686-w64-mingw32\\lib E:\\MinGW\\lib\\gcc\\i686-w64-mingw32\\8.3.0',
+ libpth => "$mingdir\\lib $mingdir\\i686-w64-mingw32\\lib $mingdir\\lib\\gcc\\i686-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,
|
