Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
Delete
Unzip
Name
Size
Permission
Date
Action
.config
[ DIR ]
drwxr-xr-x
2016-10-10 17:32
Cross
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
NetWare
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Porting
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
cpan
[ DIR ]
drwxr-xr-x
2015-02-14 16:55
cygwin
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
dist
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
djgpp
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
ext
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
h2pl
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
haiku
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
hints
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
lib
[ DIR ]
drwxr-xr-x
2016-10-10 18:16
mad
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
os2
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
plan9
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
pod
[ DIR ]
drwxr-xr-x
2016-10-10 18:13
qnx
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
regen
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
symbian
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
t
[ DIR ]
drwxr-xr-x
2016-10-10 19:00
utils
[ DIR ]
drwxr-xr-x
2016-10-10 17:41
vms
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
vos
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
win32
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
x2p
[ DIR ]
drwxr-xr-x
2016-10-10 17:41
AUTHORS
44.95
KB
-r--r--r--
2015-01-28 21:08
Artistic
6.17
KB
-r--r--r--
2014-12-27 11:48
Changes
3.09
KB
-r--r--r--
2014-12-27 11:48
Configure
539.85
KB
-r-xr-xr-x
2015-01-10 12:06
Copying
12.34
KB
-r--r--r--
2014-12-27 11:48
DynaLoader.o
9.58
KB
-rw-r--r--
2016-10-10 17:38
EXTERN.h
2.04
KB
-r--r--r--
2014-12-27 11:48
INSTALL
104.05
KB
-r--r--r--
2015-01-31 15:32
INTERN.h
1.47
KB
-r--r--r--
2014-12-27 11:49
MANIFEST
300.93
KB
-r--r--r--
2015-01-28 21:08
META.json
3.58
KB
-r--r--r--
2015-02-01 03:22
META.yml
2.83
KB
-r--r--r--
2015-01-28 21:08
Makefile
34.77
KB
-rw-r--r--
2016-10-10 17:34
Makefile.SH
48.39
KB
-r-xr-xr-x
2014-12-27 11:49
Makefile.micro
5.13
KB
-r--r--r--
2014-12-27 11:48
Policy.sh
5.33
KB
-rw-r--r--
2016-10-10 17:34
Policy_sh.SH
7.94
KB
-r-xr-xr-x
2014-12-27 11:48
README
5.53
KB
-r--r--r--
2015-01-28 21:11
README.aix
19.15
KB
-r--r--r--
2014-12-27 11:49
README.amiga
6.87
KB
-r--r--r--
2014-12-27 11:48
README.android
7.61
KB
-r--r--r--
2014-12-27 11:48
README.bs2000
7.73
KB
-r--r--r--
2014-12-27 11:48
README.ce
14.27
KB
-r--r--r--
2014-12-27 11:48
README.cn
4.58
KB
-r--r--r--
2014-12-27 11:48
README.cygwin
26.67
KB
-r--r--r--
2014-12-27 11:49
README.dos
10.28
KB
-r--r--r--
2014-12-27 11:48
README.freebsd
1.55
KB
-r--r--r--
2014-12-27 11:48
README.haiku
1.47
KB
-r--r--r--
2015-01-28 21:08
README.hpux
28.68
KB
-r--r--r--
2014-12-27 11:49
README.hurd
1.94
KB
-r--r--r--
2014-12-27 11:48
README.irix
4.29
KB
-r--r--r--
2014-12-27 11:48
README.jp
7.34
KB
-r--r--r--
2014-12-27 11:48
README.ko
11.97
KB
-r--r--r--
2014-12-27 11:48
README.linux
1.45
KB
-r--r--r--
2014-12-27 11:48
README.macos
1001
B
-r--r--r--
2014-12-27 11:48
README.macosx
11.72
KB
-r--r--r--
2015-01-28 21:08
README.micro
1.81
KB
-r--r--r--
2014-12-27 11:48
README.netware
6.32
KB
-r--r--r--
2014-12-27 11:48
README.openbsd
1.18
KB
-r--r--r--
2014-12-27 11:48
README.os2
90.54
KB
-r--r--r--
2015-01-28 21:08
README.os390
15.19
KB
-r--r--r--
2014-12-27 11:48
README.os400
4.51
KB
-r--r--r--
2014-12-27 11:48
README.plan9
5
KB
-r--r--r--
2014-12-27 11:48
README.qnx
6.52
KB
-r--r--r--
2014-12-27 11:48
README.riscos
1.49
KB
-r--r--r--
2014-12-27 11:48
README.solaris
29.11
KB
-r--r--r--
2014-12-27 11:48
README.symbian
15.44
KB
-r--r--r--
2014-12-27 11:48
README.synology
6.88
KB
-r--r--r--
2014-12-27 11:48
README.tru64
7.56
KB
-r--r--r--
2014-12-27 11:49
README.tw
4.5
KB
-r--r--r--
2014-12-27 11:48
README.vms
23.45
KB
-r--r--r--
2015-01-28 21:08
README.vos
3.75
KB
-r--r--r--
2014-12-27 11:48
README.win32
37.59
KB
-r--r--r--
2015-01-15 22:12
TestInit.pm
2.95
KB
-r--r--r--
2014-12-27 11:49
XSUB.h
21.18
KB
-r--r--r--
2014-12-27 11:49
autodoc.pl
13.88
KB
-r--r--r--
2014-12-27 11:49
av.c
23.23
KB
-r--r--r--
2014-12-27 11:49
av.h
3.15
KB
-r--r--r--
2014-12-27 11:49
av.o
17.22
KB
-rw-r--r--
2016-10-10 17:36
bitcount.h
850
B
-rw-r--r--
2016-10-10 17:36
caretx.c
4.14
KB
-r--r--r--
2014-12-27 11:49
caretx.o
2.1
KB
-rw-r--r--
2016-10-10 17:36
cflags
3.79
KB
-rwxr-xr-x
2016-10-10 17:34
cflags.SH
10.3
KB
-r-xr-xr-x
2014-12-27 11:49
charclass_invlists.h
86.63
KB
-r--r--r--
2014-12-27 11:49
config.h
144.21
KB
-rw-r--r--
2016-10-10 17:34
config.sh
33.79
KB
-rw-r--r--
2016-10-10 17:34
config_h.SH
147.66
KB
-r-xr-xr-x
2014-12-27 11:49
configpm
31.32
KB
-r-xr-xr-x
2014-12-27 11:49
configure.com
211.66
KB
-r--r--r--
2014-12-27 11:49
configure.gnu
2.5
KB
-r-xr-xr-x
2014-12-27 11:48
cop.h
40.55
KB
-r--r--r--
2014-12-27 11:49
cv.h
10.25
KB
-r--r--r--
2014-12-27 11:49
deb.c
7.48
KB
-r--r--r--
2014-12-27 11:49
deb.o
2.15
KB
-rw-r--r--
2016-10-10 17:36
doio.c
64.64
KB
-r--r--r--
2014-12-27 11:49
doio.o
54.52
KB
-rw-r--r--
2016-10-10 17:36
doop.c
29.36
KB
-r--r--r--
2014-12-27 11:49
doop.o
23.63
KB
-rw-r--r--
2016-10-10 17:36
dosish.h
5.41
KB
-r--r--r--
2014-12-27 11:48
dquote_static.c
10.92
KB
-r--r--r--
2014-12-27 11:49
dump.c
99.94
KB
-r--r--r--
2015-01-12 22:02
dump.o
75.78
KB
-rw-r--r--
2016-10-10 17:36
embed.fnc
114
KB
-r--r--r--
2014-12-27 11:49
embed.h
88.24
KB
-rw-r--r--
2014-12-27 11:49
embedvar.h
17.51
KB
-rw-r--r--
2014-12-27 11:49
ext.libs
0
B
-rw-r--r--
2016-10-10 17:38
extra.pods
585
B
-rw-r--r--
2016-10-10 17:36
fakesdio.h
3.24
KB
-r--r--r--
2014-12-27 11:48
feature.h
4.26
KB
-rw-r--r--
2014-12-27 11:49
form.h
1.43
KB
-r--r--r--
2014-12-27 11:48
generate_uudmap
14.41
KB
-rwxr-xr-x
2016-10-10 17:36
generate_uudmap.c
3.73
KB
-r--r--r--
2014-12-27 11:49
generate_uudmap.o
10.16
KB
-rw-r--r--
2016-10-10 17:36
git_version.h
357
B
-rw-r--r--
2016-10-10 17:36
globals.c
1.28
KB
-r--r--r--
2014-12-27 11:48
globals.o
96.84
KB
-rw-r--r--
2016-10-10 17:36
globvar.sym
994
B
-r--r--r--
2014-12-27 11:49
gv.c
99.2
KB
-r--r--r--
2014-12-27 12:19
gv.h
10.54
KB
-r--r--r--
2014-12-27 11:49
gv.o
82.3
KB
-rw-r--r--
2016-10-10 17:35
handy.h
90.96
KB
-r--r--r--
2014-12-27 11:49
hv.c
102.94
KB
-r--r--r--
2014-12-27 11:49
hv.h
23.9
KB
-r--r--r--
2014-12-27 11:48
hv.o
43.42
KB
-rw-r--r--
2016-10-10 17:36
hv_func.h
17.45
KB
-r--r--r--
2014-12-27 11:49
inline.h
9.29
KB
-r--r--r--
2014-12-27 11:49
inline_invlist.c
1.91
KB
-r--r--r--
2014-12-27 11:49
install_lib.pl
3.9
KB
-r--r--r--
2014-12-27 11:49
installhtml
17.04
KB
-r--r--r--
2014-12-27 11:48
installman
5.62
KB
-r-xr-xr-x
2014-12-27 11:48
installperl
27.46
KB
-r-xr-xr-x
2015-01-10 12:06
intrpvar.h
26.99
KB
-r--r--r--
2015-01-28 21:08
iperlsys.h
47.63
KB
-r--r--r--
2014-12-27 11:49
keywords.c
88.86
KB
-rw-r--r--
2014-12-27 11:49
keywords.h
6.43
KB
-rw-r--r--
2014-12-27 11:49
keywords.o
30.68
KB
-rw-r--r--
2016-10-10 17:36
l1_char_class_tab.h
38.25
KB
-r--r--r--
2014-12-27 11:49
libperl.a
2.75
MB
-rw-r--r--
2016-10-10 17:38
locale.c
45.02
KB
-r--r--r--
2014-12-27 11:49
locale.o
15.68
KB
-rw-r--r--
2016-10-10 17:36
madly.c
704
B
-r--r--r--
2014-12-27 11:49
make_ext.pl
24.34
KB
-r--r--r--
2015-01-10 12:06
make_patchnum.pl
6.65
KB
-r--r--r--
2014-12-27 11:49
makedef.pl
33.97
KB
-r--r--r--
2015-01-12 20:14
makedepend
7.07
KB
-rwxr-xr-x
2016-10-10 17:34
makedepend.SH
7.82
KB
-r-xr-xr-x
2014-12-27 11:49
makefile
303.73
KB
-rw-r--r--
2016-10-10 17:34
makefile.old
34.77
KB
-rw-r--r--
2016-10-10 17:34
malloc.c
70.51
KB
-r--r--r--
2014-12-27 11:49
malloc_ctl.h
1.48
KB
-r--r--r--
2014-12-27 11:48
mathoms.c
30.41
KB
-r--r--r--
2014-12-27 11:49
mathoms.o
30.02
KB
-rw-r--r--
2016-10-10 17:36
metaconfig.SH
1.18
KB
-r-xr-xr-x
2014-12-27 11:48
metaconfig.h
981
B
-r--r--r--
2014-12-27 11:49
mg.c
84.07
KB
-r--r--r--
2014-12-27 12:31
mg.h
2.9
KB
-r--r--r--
2014-12-27 11:49
mg.o
72.97
KB
-rw-r--r--
2016-10-10 17:36
mg_data.h
4.7
KB
-rw-r--r--
2016-10-10 17:36
mg_names.c
2.05
KB
-r--r--r--
2014-12-27 11:49
mg_raw.h
4.02
KB
-r--r--r--
2014-12-27 11:49
mg_vtable.h
8.73
KB
-rw-r--r--
2014-12-27 11:49
miniperl
1.53
MB
-rwxr-xr-x
2016-10-10 17:36
miniperlmain.c
5.11
KB
-r--r--r--
2014-12-27 11:49
miniperlmain.o
2.95
KB
-rw-r--r--
2016-10-10 17:35
mkppport
4.26
KB
-r--r--r--
2014-12-27 11:48
mkppport.lst
257
B
-r--r--r--
2014-12-27 11:48
mro.c
42.78
KB
-r--r--r--
2014-12-27 11:49
mro.o
24.22
KB
-rw-r--r--
2016-10-10 17:36
myconfig
2
KB
-rwxr-xr-x
2016-10-10 17:34
myconfig.SH
2.45
KB
-r-xr-xr-x
2014-12-27 11:49
mydtrace.h
2.83
KB
-r--r--r--
2014-12-27 11:48
nostdio.h
3.37
KB
-r--r--r--
2014-12-27 11:49
numeric.c
33.86
KB
-r--r--r--
2014-12-27 11:49
numeric.o
14.3
KB
-rw-r--r--
2016-10-10 17:36
op.c
339.8
KB
-r--r--r--
2015-01-12 22:02
op.h
37.45
KB
-r--r--r--
2014-12-27 12:38
op.o
218.2
KB
-rw-r--r--
2016-10-10 17:38
op_reg_common.h
5.08
KB
-r--r--r--
2014-12-27 11:49
opcode.h
46.78
KB
-rw-r--r--
2014-12-27 11:49
opmini.c
339.8
KB
-r--r--r--
2015-01-12 22:02
opmini.o
217.94
KB
-rw-r--r--
2016-10-10 17:35
opnames.h
8.17
KB
-rw-r--r--
2014-12-27 11:49
overload.c
3.32
KB
-rw-r--r--
2014-12-27 11:48
overload.h
2.95
KB
-rw-r--r--
2014-12-27 11:48
packsizetables.c
5.94
KB
-r--r--r--
2014-12-27 11:48
pad.c
71.56
KB
-r--r--r--
2015-01-15 22:12
pad.h
15.99
KB
-r--r--r--
2015-01-15 22:12
pad.o
31.54
KB
-rw-r--r--
2016-10-10 17:36
parser.h
6.52
KB
-r--r--r--
2014-12-27 11:49
patchlevel.h
5.19
KB
-r--r--r--
2015-02-01 03:22
perl
1.63
MB
-rwxr-xr-x
2016-10-10 19:19
perl.c
131.72
KB
-r--r--r--
2015-01-28 21:12
perl.h
177.1
KB
-r--r--r--
2015-01-12 20:14
perl.o
175.37
KB
-rw-r--r--
2016-10-10 17:38
perlapi.c
1.69
KB
-rw-r--r--
2014-12-27 11:48
perlapi.h
5.49
KB
-rw-r--r--
2014-12-27 11:48
perlapi.o
939
B
-rw-r--r--
2016-10-10 17:36
perldtrace.d
563
B
-r--r--r--
2014-12-27 11:48
perlio.c
117.77
KB
-r--r--r--
2014-12-27 11:49
perlio.h
10.22
KB
-r--r--r--
2014-12-27 11:48
perlio.o
72.05
KB
-rw-r--r--
2016-10-10 17:36
perlio.sym
446
B
-r--r--r--
2014-12-27 11:48
perliol.h
13.32
KB
-r--r--r--
2014-12-27 11:49
perlmain.c
5.09
KB
-rw-r--r--
2016-10-10 19:19
perlmain.o
3.38
KB
-rw-r--r--
2016-10-10 19:19
perlmini.c
131.72
KB
-r--r--r--
2015-01-28 21:12
perlmini.o
173.31
KB
-rw-r--r--
2016-10-10 17:35
perlsdio.h
4.92
KB
-r--r--r--
2014-12-27 11:48
perlvars.h
8.76
KB
-r--r--r--
2014-12-27 11:48
perly.act
55.04
KB
-r--r--r--
2014-12-27 11:49
perly.c
16.1
KB
-r--r--r--
2014-12-27 11:49
perly.h
6.08
KB
-r--r--r--
2014-12-27 11:49
perly.o
51.13
KB
-rw-r--r--
2016-10-10 17:36
perly.tab
74.01
KB
-r--r--r--
2014-12-27 11:49
perly.y
38.93
KB
-r--r--r--
2014-12-27 11:49
pp.c
147.83
KB
-r--r--r--
2014-12-27 11:49
pp.h
19.83
KB
-r--r--r--
2014-12-27 11:49
pp.o
150.74
KB
-rw-r--r--
2016-10-10 17:36
pp_ctl.c
142.43
KB
-r--r--r--
2015-01-24 15:03
pp_ctl.o
143.59
KB
-rw-r--r--
2016-10-10 17:36
pp_hot.c
82.79
KB
-r--r--r--
2014-12-27 11:49
pp_hot.o
76.93
KB
-rw-r--r--
2016-10-10 17:36
pp_pack.c
81.07
KB
-r--r--r--
2014-12-27 11:49
pp_pack.o
78.95
KB
-rw-r--r--
2016-10-10 17:36
pp_proto.h
10.81
KB
-rw-r--r--
2014-12-27 11:49
pp_sort.c
64.99
KB
-r--r--r--
2014-12-27 11:49
pp_sort.o
25.86
KB
-rw-r--r--
2016-10-10 17:36
pp_sys.c
128.85
KB
-r--r--r--
2015-01-11 14:03
pp_sys.o
145.77
KB
-rw-r--r--
2016-10-10 17:36
proto.h
275.69
KB
-rw-r--r--
2014-12-27 11:49
realclean.sh
46.47
KB
-rw-r--r--
2016-10-10 19:19
reentr.c
15.59
KB
-rw-r--r--
2014-12-27 11:49
reentr.h
76.44
KB
-rw-r--r--
2014-12-27 11:49
reentr.o
1.52
KB
-rw-r--r--
2016-10-10 17:36
regcharclass.h
52.42
KB
-rw-r--r--
2014-12-27 11:49
regcomp.c
610.17
KB
-r--r--r--
2015-01-10 13:15
regcomp.h
37.6
KB
-r--r--r--
2014-12-27 11:49
regcomp.o
220.61
KB
-rw-r--r--
2016-10-10 17:36
regcomp.sym
11.89
KB
-r--r--r--
2014-12-27 11:49
regen.pl
862
B
-r--r--r--
2014-12-27 11:49
regen_perly.pl
9
KB
-r--r--r--
2014-12-27 11:49
regexec.c
291.97
KB
-r--r--r--
2014-12-27 11:49
regexec.o
109.56
KB
-rw-r--r--
2016-10-10 17:36
regexp.h
31.38
KB
-r--r--r--
2014-12-27 11:49
regnodes.h
34.54
KB
-rw-r--r--
2014-12-27 11:49
run.c
1.53
KB
-r--r--r--
2014-12-27 11:49
run.o
1.59
KB
-rw-r--r--
2016-10-10 17:36
runtests
1.09
KB
-rwxr-xr-x
2016-10-10 17:34
runtests.SH
1.79
KB
-r-xr-xr-x
2014-12-27 11:49
scope.c
36.35
KB
-r--r--r--
2014-12-27 11:49
scope.h
11.64
KB
-r--r--r--
2014-12-27 11:49
scope.o
29.58
KB
-rw-r--r--
2016-10-10 17:36
sv.c
408.23
KB
-r--r--r--
2015-01-15 22:12
sv.h
80.16
KB
-r--r--r--
2015-01-15 22:12
sv.o
166.73
KB
-rw-r--r--
2016-10-10 17:36
taint.c
4.91
KB
-r--r--r--
2014-12-27 11:49
taint.o
5.8
KB
-rw-r--r--
2016-10-10 17:36
thread.h
11.53
KB
-r--r--r--
2014-12-27 11:49
time64.c
15.29
KB
-r--r--r--
2014-12-27 11:49
time64.h
1.57
KB
-r--r--r--
2014-12-27 11:49
time64_config.h
1.98
KB
-r--r--r--
2014-12-27 11:49
toke.c
350.24
KB
-r--r--r--
2015-01-24 15:03
toke.o
274.02
KB
-rw-r--r--
2016-10-10 17:36
uconfig.h
144.22
KB
-rw-r--r--
2014-12-27 11:49
uconfig.sh
15.69
KB
-r--r--r--
2014-12-27 11:49
uconfig64.sh
15.73
KB
-r--r--r--
2014-12-27 11:49
unicode_constants.h
2.12
KB
-r--r--r--
2014-12-27 11:49
universal.c
24.91
KB
-r--r--r--
2014-12-27 11:49
universal.o
45.73
KB
-rw-r--r--
2016-10-10 17:36
unixish.h
4.48
KB
-r--r--r--
2014-12-27 11:49
utf8.c
135.85
KB
-r--r--r--
2014-12-27 12:10
utf8.h
29.3
KB
-r--r--r--
2014-12-27 11:49
utf8.o
77.52
KB
-rw-r--r--
2016-10-10 17:36
utfebcdic.h
45.12
KB
-r--r--r--
2014-12-27 11:49
util.c
138.18
KB
-r--r--r--
2014-12-27 12:20
util.h
2.53
KB
-r--r--r--
2014-12-27 11:49
util.o
70.16
KB
-rw-r--r--
2016-10-10 17:36
utils.lst
623
B
-r--r--r--
2014-12-27 11:49
uudmap.h
904
B
-rw-r--r--
2016-10-10 17:36
veryclean.sh
46.47
KB
-rw-r--r--
2016-10-10 19:19
vutil.c
25.44
KB
-r--r--r--
2014-12-27 11:49
vutil.h
7.06
KB
-r--r--r--
2014-12-27 11:49
vxs.inc
10.91
KB
-r--r--r--
2014-12-27 11:49
warnings.h
4.94
KB
-rw-r--r--
2014-12-27 11:49
write_buildcustomize.pl
3.01
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
#!./perl -w BEGIN { chdir '..' if !-d 'lib' and -d '../lib'; @INC = 'lib'; $ENV{PERL5LIB} = 'lib'; # This needs to be at BEGIN time, before any use of Config # install_lib itself loads and imports Config into main:: require './install_lib.pl'; } use strict; use vars qw($Is_VMS $Is_W32 $Is_OS2 $Is_Cygwin $Is_Darwin $Is_NetWare %opts $packlist); my $versiononly; BEGIN { if ($Is_VMS) { eval 'use VMS::Filespec;' } } my $scr_ext = ($Is_VMS ? '.Com' : $Is_W32 ? '.bat' : ''); use File::Find; use File::Compare; use File::Copy (); use ExtUtils::Packlist; use Cwd; # nogetopt_compat to disable treating +v as meaning -v use Getopt::Long qw(:config nogetopt_compat no_auto_abbrev noignorecase); require './Porting/pod_lib.pl'; if ($Is_NetWare) { $Is_W32 = 0; $scr_ext = '.pl'; } my $mainperldir = "/usr/bin"; my $exe_ext = $Config{exe_ext}; # Allow "make install PERLNAME=something_besides_perl": my $perl = defined($ENV{PERLNAME}) ? $ENV{PERLNAME} : 'perl'; # This is the base used for versioned names, like "perl5.6.0". # It's separate because a common use of $PERLNAME is to install # perl as "perl5", if that's used as base for versioned files you # get "perl55.6.0". my $perl_verbase = defined($ENV{PERLNAME_VERBASE}) ? $ENV{PERLNAME_VERBASE} : $perl; my $dbg = ''; my $ndbg = ''; if ( $Is_VMS ) { if ( defined $Config{usevmsdebug} ) { if ( $Config{usevmsdebug} eq 'define' ) { $dbg = 'dbg'; $ndbg = 'ndbg'; } } } # This little hack simplifies making the code after the comment "Fetch some # frequently-used items from %Config" warning free. With $opts{destdir} always # defined, it's also possible to make the s/\Q$opts{destdir}\E unconditional. $opts{destdir} = ''; { my $usage = 0; if (!GetOptions(\%opts, 'notify|n', 'strip|s', 'silent|S', 'skip-otherperls|o', 'force|f', 'verbose|V', 'archname|A', 'netware', 'nopods|p', 'destdir:s', 'help|h|?', 'versiononly|v' => \$versiononly, '<>' => sub { if ($_[0] eq '+v') { $versiononly = 0; } else { # Any other unknown argument is going to be an error $usage = 1; } }, )) { $usage = 1; } $opts{verbose} ||= $opts{notify}; if ($usage || $opts{help}) { print <<"EOT"; Usage $0: [switches] -n Don't actually run any commands; just print them. -s Run strip on installed binaries. -v Only install perl as a binary with the version number in the name. (Override whatever config.sh says) +v Install perl as "perl" and as a binary with the version number in the name. (Override whatever config.sh says) -S Silent mode. -f Force installation (don't check if same version is there) -o Skip checking for other copies of perl in your PATH. -V Verbose mode. -A Also install perl with the architecture's name in the perl binary's name. -p Don't install the pod files. [This will break use diagnostics;] -netware Install correctly on a Netware server. -destdir Prefix installation directories by this string. -h Display this help message. EOT exit $usage; } } $versiononly = 1 if $Config{versiononly} && !defined $versiononly; my (@scripts, @tolink); open SCRIPTS, "utils.lst" or die "Can't open utils.lst: $!"; while (<SCRIPTS>) { next if /^#/; next if /a2p/; # a2p is binary, to be installed separately chomp; if (/(\S*)\s*#\s*link\s*=\s*(\S*)/) { push @scripts, $1; push @tolink, [$1, $2]; } else { push @scripts, $_; } } close SCRIPTS; if ($scr_ext) { @scripts = map { "$_$scr_ext" } @scripts; } # Specify here any .pm files that are actually architecture-dependent. # (Those included with XS extensions under ext/ are automatically # added later.) # Now that the default privlib has the full perl version number included, # we no longer have to play the trick of sticking version-specific .pm # files under the archlib directory. my %archpms = ( Config => 1, lib => 1, ); if ($^O eq 'dos') { push(@scripts,'djgpp/fixpmain'); $archpms{config} = $archpms{filehand} = 1; } if ((-e "testcompile") && (defined($ENV{'COMPILE'}))) { push(@scripts, map("$_.exe", @scripts)); } # Exclude nonxs extensions that are not architecture dependent my @nonxs = grep(!/^Errno$/, split(' ', $Config{'nonxs_ext'})); my @ext_dirs = qw(cpan dist ext); foreach my $ext_dir (@ext_dirs) { find(sub { if (($File::Find::name =~ m{^$ext_dir\b(.*)/([^/]+)\.pm$}) && ! grep { (my $dir = $_) =~ s/\//-/g; $File::Find::name =~ /^$ext_dir\/$dir\// } @nonxs) { my($path, $modname) = ($1,$2); # Change hyphenated name like Filter-Util-Call to nested # directory name Filter/Util/Call $path =~ s{-}{/}g; # strip to optional "/lib", or remove trailing component $path =~ s{.*/lib\b}{} or $path =~ s{/[^/]*$}{}; # strip any leading / $path =~ s{^/}{}; # reconstitute canonical module name $modname = "$path/$modname" if length $path; # remember it $archpms{$modname} = 1; } }, $ext_dir); } # print "[$_]\n" for sort keys %archpms; my $ver = $Config{version}; my $release = substr($],0,3); # Not used currently. my $patchlevel = substr($],3,2); die "Patchlevel of perl ($patchlevel)", "and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n" if $patchlevel != $Config{'PERL_VERSION'}; # Fetch some frequently-used items from %Config my $installbin = "$opts{destdir}$Config{installbin}"; my $installscript = "$opts{destdir}$Config{installscript}"; my $installprivlib = "$opts{destdir}$Config{installprivlib}"; my $installarchlib = "$opts{destdir}$Config{installarchlib}"; my $installsitelib = "$opts{destdir}$Config{installsitelib}"; my $installsitearch = "$opts{destdir}$Config{installsitearch}"; my $installman1dir = "$opts{destdir}$Config{installman1dir}"; my $man1ext = $Config{man1ext}; my $libperl = $Config{libperl}; # Shared library and dynamic loading suffixes. my $so = $Config{so}; my $dlext = $Config{dlext}; my $dlsrc = $Config{dlsrc}; if ($^O eq 'os390') { my $pwd; chomp($pwd=`pwd`); my $archlibexp = $Config{archlibexp}; my $usedl = $Config{usedl}; if ($usedl eq 'define') { `./$^X -pibak -e 's{$pwd\/libperl.x}{$archlibexp/CORE/libperl.x}' lib/Config.pm`; } } if ($opts{netware}) { # This is required only if we are installing on a NetWare server $installscript = $Config{installnwscripts}; $installprivlib = $Config{installnwlib}; $installarchlib = $Config{installnwlib}; $installsitelib = $Config{installnwlib}; } my $binexp = $Config{binexp}; if ($Is_VMS) { # Hang in there until File::Spec hits the big time foreach ( \$installbin, \$installscript, \$installprivlib, \$installarchlib, \$installsitelib, \$installsitearch, \$installman1dir ) { $$_ = unixify($$_); $$_ =~ s:/$::; } } # Do some quick sanity checks. $installbin || die "No installbin directory in config.sh\n"; -d $installbin || mkpath($installbin); -d $installbin || $opts{notify} || die "$installbin is not a directory\n"; -w $installbin || $opts{notify} || die "$installbin is not writable by you\n" unless $installbin =~ m#^/afs/# || $opts{notify}; if (!$Is_NetWare) { if (!$Is_VMS) { -x 'perl' . $exe_ext || die "perl isn't executable!\n"; } else { -x $ndbg . 'perl' . $exe_ext || die "${ndbg}perl$exe_ext isn't executable!\n"; if ($dbg) { -x $dbg . 'perl' . $exe_ext || die "${dbg}perl$exe_ext isn't executable!\n"; } } -f 't/rantests' || $Is_W32 || warn "WARNING: You've never run 'make test' or", " some tests failed! (Installing anyway.)\n"; } #if (!$Is_NetWare) # This will be used to store the packlist $packlist = ExtUtils::Packlist->new("$installarchlib/.packlist"); if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin) { my $perldll; if ($Is_Cygwin) { $perldll = $libperl; } else { $perldll = 'perl5'.$Config{patchlevel}.'.'.$so; } if ($dlsrc ne "dl_none.xs") { -f $perldll || die "No perl DLL built\n"; } # Install the DLL safe_unlink("$installbin/$perldll"); copy("$perldll", "$installbin/$perldll"); chmod(0755, "$installbin/$perldll"); $packlist->{"$Config{installbin}/$perldll"} = { type => 'file' }; } # if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin) # First we install the version-numbered executables. if ($Is_VMS) { safe_unlink("$installbin/perl_setup.com"); copy("perl_setup.com", "$installbin/perl_setup.com"); chmod(0755, "$installbin/perl_setup.com"); safe_unlink("$installbin/$dbg$perl$exe_ext"); copy("$dbg$perl$exe_ext", "$installbin/$dbg$perl$exe_ext"); chmod(0755, "$installbin/$dbg$perl$exe_ext"); safe_unlink("$installbin/$dbg${perl}shr$exe_ext"); copy("$dbg${perl}shr$exe_ext", "$installbin/$dbg${perl}shr$exe_ext"); chmod(0755, "$installbin/$dbg${perl}shr$exe_ext"); if ($ndbg) { safe_unlink("$installbin/$ndbg$perl$exe_ext"); copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext"); chmod(0755, "$installbin/$ndbg$perl$exe_ext"); safe_unlink("$installbin/${dbg}a2p$exe_ext"); copy("x2p/${dbg}a2p$exe_ext", "$installbin/${dbg}a2p$exe_ext"); chmod(0755, "$installbin/${dbg}a2p$exe_ext"); } } elsif ($^O ne 'dos') { if (!$Is_NetWare) { safe_unlink("$installbin/$perl_verbase$ver$exe_ext"); copy("perl$exe_ext", "$installbin/$perl_verbase$ver$exe_ext"); strip("$installbin/$perl_verbase$ver$exe_ext"); chmod(0755, "$installbin/$perl_verbase$ver$exe_ext"); } else { # If installing onto a NetWare server if ($opts{netware}) { # Copy perl.nlm, echo.nlm, type.nlm, a2p.nlm & cgi2perl.nlm mkpath($Config{installnwsystem}); copy("netware\\".$ENV{'MAKE_TYPE'}."\\perl.nlm", $Config{installnwsystem}); copy("netware\\testnlm\\echo\\echo.nlm", $Config{installnwsystem}); copy("netware\\testnlm\\type\\type.nlm", $Config{installnwsystem}); copy("x2p\\a2p.nlm", $Config{installnwsystem}); chmod(0755, "$Config{installnwsystem}\\perl.nlm"); mkpath($Config{installnwlcgi}); copy("lib\\auto\\cgi2perl\\cgi2perl.nlm", $Config{installnwlcgi}); } } #if (!$Is_NetWare) } else { safe_unlink("$installbin/$perl.exe"); copy("perl.exe", "$installbin/$perl.exe"); } # Install library files. my $do_installarchlib = !samepath($installarchlib, 'lib'); my $do_installprivlib = !samepath($installprivlib, 'lib'); my $vershort = ($Is_Cygwin and !$Config{usedevel}) ? substr($ver,0,-2) : $ver; $do_installprivlib = 0 if $versiononly && !($installprivlib =~ m/\Q$vershort/); mkpath($installprivlib); mkpath($installarchlib); mkpath($installsitelib, $opts{verbose}, 0777) if ($installsitelib); mkpath($installsitearch, $opts{verbose}, 0777) if ($installsitearch); if (-d 'lib') { find({no_chdir => 1, wanted => \&installlib}, 'lib') if $do_installarchlib || $do_installprivlib; } else { warn "Can't install lib files - 'lib/' does not exist"; } # Install header files and libraries. mkpath("$installarchlib/CORE"); my @corefiles; if ($Is_VMS) { # We did core file selection during build my $coredir = "lib/$Config{archname}/$ver/CORE"; $coredir =~ tr/./_/; map { s|^$coredir/||i; } @corefiles = <$coredir/*.*>; } elsif ($Is_Cygwin) { # On Cygwin symlink it to CORE to make Makefile happy @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>; my $coredll = "$installarchlib/CORE/$libperl"; my $instcoredll = "$Config{installarchlib}/CORE/$libperl"; safe_unlink($coredll); ( $Config{'d_link'} eq 'define' && eval { CORE::link("$installbin/$libperl", $coredll); $packlist->{$instcoredll} = { from => "$Config{installbin}/$libperl", type => 'link' }; } ) || eval { symlink("$installbin/$libperl", $coredll); $packlist->{$instcoredll} = { from => "$Config{installbin}/$libperl", type => 'link' }; } || ( copy("$installbin/$libperl", $coredll) && push(@corefiles, $instcoredll) ) } else { # [als] hard-coded 'libperl' name... not good! @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>; # AIX needs perl.exp installed as well. push(@corefiles,'perl.exp') if $^O eq 'aix'; } foreach my $file (@corefiles) { # HP-UX (at least) needs to maintain execute permissions # on dynamically-loadable libraries. So we do it for all. if (copy_if_diff($file,"$installarchlib/CORE/$file")) { if ($file =~ /\.(\Q$so\E|\Q$dlext\E)$/) { strip("-S", "$installarchlib/CORE/$file") if $^O eq 'darwin'; chmod(0555, "$installarchlib/CORE/$file"); } else { chmod(0444, "$installarchlib/CORE/$file"); } } } # Install main perl executables # Make links to ordinary names if installbin directory isn't current directory. if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS && ! $Is_NetWare) { safe_unlink("$installbin/$perl$exe_ext", "$installbin/suid$perl$exe_ext"); if ($^O eq 'vos') { # VOS doesn't support hard links, so use a symlink. symlink("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$perl$exe_ext"); } else { link("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$perl$exe_ext"); } } # For development purposes it can be very useful to have multiple perls # build for different "architectures" (eg threading or not) simultaneously. if ($opts{archname} && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS) { my $archperl = "$perl_verbase$ver-$Config{archname}$exe_ext"; safe_unlink("$installbin/$archperl"); if ($^O eq 'vos') { # VOS doesn't support hard links, so use a symlink. symlink("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$archperl"); } else { link("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$archperl"); } } # Offer to install perl in a "standard" location my $mainperl_is_instperl = 0; if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' && !$versiononly && !$opts{notify} && !$Is_W32 && !$Is_NetWare && !$Is_VMS && -t STDIN && -t STDERR && -w $mainperldir && ! samepath($mainperldir, $installbin)) { my($usrbinperl) = "$mainperldir/$perl$exe_ext"; my($instperl) = "$installbin/$perl$exe_ext"; my($expinstperl) = "$binexp/$perl$exe_ext"; # First make sure $usrbinperl is not already the same as the perl we # just installed. if (-x $usrbinperl) { # Try to be clever about mainperl being a symbolic link # to binexp/perl if binexp and installbin are different. $mainperl_is_instperl = samepath($usrbinperl, $instperl) || samepath($usrbinperl, $expinstperl) || (($binexp ne $installbin) && (-l $usrbinperl) && ((readlink $usrbinperl) eq $expinstperl)); } if (! $mainperl_is_instperl) { unlink($usrbinperl); ( $Config{'d_link'} eq 'define' && eval { CORE::link $instperl, $usrbinperl } ) || eval { symlink $expinstperl, $usrbinperl } || copy($instperl, $usrbinperl); $mainperl_is_instperl = 1; } } # Make links to ordinary names if installbin directory isn't current directory. if (!$Is_NetWare && $dbg eq '') { if (! samepath($installbin, 'x2p')) { my $base = 'a2p'; $base .= $ver if $versiononly; safe_unlink("$installbin/$base$exe_ext"); copy("x2p/a2p$exe_ext", "$installbin/$base$exe_ext"); strip("$installbin/$base$exe_ext"); chmod(0755, "$installbin/$base$exe_ext"); } } # cppstdin is just a script, but it is architecture-dependent, so # it can't safely be shared. Place it in $installbin. # Note that Configure doesn't build cppstin if it isn't needed, so # we skip this if cppstdin doesn't exist. if (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) { safe_unlink("$installbin/cppstdin"); copy("cppstdin", "$installbin/cppstdin"); chmod(0755, "$installbin/cppstdin"); } sub script_alias { my ($installscript, $orig, $alias, $scr_ext) = @_; safe_unlink("$installscript/$alias$scr_ext"); if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') { copy("$installscript/$orig$scr_ext", "$installscript/$alias$scr_ext"); } elsif ($^O eq 'vos') { symlink("$installscript/$orig$scr_ext", "$installscript/$alias$scr_ext"); } else { link("$installscript/$orig$scr_ext", "$installscript/$alias$scr_ext"); } } # Install scripts. mkpath($installscript); if ($versiononly) { for (@scripts) { (my $base = $_) =~ s#.*/##; $base .= $ver; copy($_, "$installscript/$base"); chmod(0755, "$installscript/$base"); } for (@tolink) { my ($from, $to) = map { "$_$ver" } @$_; (my $frbase = $from) =~ s#.*/##; (my $tobase = $to) =~ s#.*/##; script_alias($installscript, $frbase, $tobase, $scr_ext); } } else { for (@scripts) { (my $base = $_) =~ s#.*/##; copy($_, "$installscript/$base"); chmod(0755, "$installscript/$base"); } for (@tolink) { my ($from, $to) = @$_; (my $frbase = $from) =~ s#.*/##; (my $tobase = $to) =~ s#.*/##; script_alias($installscript, $frbase, $tobase, $scr_ext); } } # Install pod pages. Where? I guess in $installprivlib/pod # ($installprivlib/pods for cygwin). if (!$opts{nopods} && (!$versiononly || ($installprivlib =~ m/\Q$vershort/))) { my $pod = ($Is_Cygwin || $Is_Darwin || $Is_VMS || $Is_W32) ? 'pods' : 'pod'; mkpath("${installprivlib}/$pod"); for (map {$_->[1]} @{get_pod_metadata()->{master}}) { # $_ is a name like pod/perl.pod (my $base = $_) =~ s#.*/##; copy_if_diff($_, "${installprivlib}/$pod/${base}"); chmod(0644, "${installprivlib}/$pod/${base}"); } } # Check to make sure there aren't other perls around in installer's # path. This is probably UNIX-specific. Check all absolute directories # in the path except for where public executables are supposed to live. # Also skip $mainperl if the user opted to have it be a link to the # installed perl. if (!$versiononly && !$opts{'skip-otherperls'}) { my ($path, @path); my $dirsep = ($Is_OS2 || $Is_W32 || $Is_NetWare) ? ';' : ':' ; ($path = $ENV{"PATH"}) =~ s:\\:/:g ; @path = split(/$dirsep/, $path); if ($Is_VMS) { my $i = 0; while (exists $ENV{'DCL$PATH' . $i}) { my $dir = unixpath($ENV{'DCL$PATH' . $i}); $dir =~ s-/$--; push(@path,$dir); } } my @otherperls; my %otherperls; for (@path) { next unless m,^/,; # Use &samepath here because some systems have other dirs linked # to $mainperldir (like SunOS) next unless -d; next if samepath($_, $binexp); next if samepath($_, cwd()); next if ($mainperl_is_instperl && samepath($_, $mainperldir)); my $otherperl = "$_/$perl$exe_ext"; next if $otherperls{$otherperl}++; push(@otherperls, $otherperl) if (-x $otherperl && ! -d $otherperl); } if (@otherperls) { warn "\nWarning: $perl appears in your path in the following " . "locations beyond where\nwe just installed it:\n"; for (@otherperls) { warn " ", $_, "\n"; } warn "\n"; } } $packlist->write() unless $opts{notify}; print " Installation complete\n" if $opts{verbose}; exit 0; ############################################################################### # If these are needed elsewhere, move them into install_lib.pl rather than # copying them. sub yn { my($prompt) = @_; my($answer); my($default) = $prompt =~ m/\[([yn])\]\s*$/i; print STDERR $prompt; chop($answer = <STDIN>); $answer = $default if $answer =~ m/^\s*$/; ($answer =~ m/^[yY]/); } sub safe_unlink { return if $opts{notify} or $Is_VMS; my @names = @_; foreach my $name (@names) { next unless -e $name; chmod 0777, $name if ($Is_OS2 || $Is_W32 || $Is_NetWare); print " unlink $name\n" if $opts{verbose}; next if CORE::unlink($name); warn "Couldn't unlink $name: $!\n"; if ($! =~ /busy/i) { print " mv $name $name.old\n" if $opts{verbose}; safe_rename($name, "$name.old") or warn "Couldn't rename $name: $!\n"; } } } sub copy { my($from,$to) = @_; my $xto = $to; $xto =~ s/^\Q$opts{destdir}\E//; print $opts{verbose} ? " cp $from $xto\n" : " $xto\n" unless $opts{silent}; print " creating new version of $xto\n" if $Is_VMS and -e $to and !$opts{silent}; unless ($opts{notify} or File::Copy::copy($from, $to)) { # Might have been that F::C::c can't overwrite the target warn "Couldn't copy $from to $to: $!\n" unless -f $to and (chmod(0666, $to), unlink $to) and File::Copy::copy($from, $to); } $packlist->{$xto} = { type => 'file' }; } sub installlib { my $dir = $File::Find::dir; $dir =~ s!\Alib/?!!; m!([^/]+)\z!; my $name = $1; # This remains ugly, and in need of refactoring. # $name always starts as the leafname # $dir is the directory *within* lib # $name later has $dir pre-pended, to give the relative path in lib/ # which is used to create the path in the target directory. # $_ was always the filename to use on disk. Adding no_chdir doesn't change # this, as $_ becomes a pathname, and so still works. However, it's not # obvious that $_ is needed later, and hence $_ must not be modified. # Also, many of the regex exclusion tests below are now superfluous, as the # files in question are either no longer in blead, or now in ext/, dist/ or # cpan/ and not copied into lib/ # Ignore version control directories. if ($name =~ /^(?:CVS|RCS|SCCS|\.svn)\z/ and -d $name) { $File::Find::prune = 1; return; } # ignore patch backups, RCS files, emacs backup & temp files and the # .exists files, .PL files, and test files. return if $name =~ m{\.orig$|\.rej$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.plc$|\.t$|^test\.pl$|^dbm_filter_util\.pl$|^filter-util\.pl$|^uupacktool\.pl$|^\.gitignore$} || $dir =~ m{/t(?:/|$)}; # ignore the cpan script in lib/CPAN/bin, the instmodsh and xsubpp # scripts in lib/ExtUtils, the prove script in lib/Test/Harness, # the corelist script from lib/Module/CoreList/bin and ptar* in # lib/Archive/Tar/bin, the config_data script in lib/Module/Build/scripts # and zipdetails in cpan/IO-Compress/bin # (they're installed later with other utils) return if $name =~ /^(?:cpan|instmodsh|prove|corelist|ptar|ptardiff|ptargrep|config_data|zipdetails)\z/; # ignore the Makefiles return if $name =~ /^makefile$/i; # ignore the test extensions return if $dir =~ m{\bXS/(?:APItest|Typemap)\b}; return if $name =~ m{\b(?:APItest|Typemap)\.pm$}; # ignore the build support code return if $name =~ /\bbuildcustomize\.pl$/; # ignore the demo files return if $dir =~ /\b(?:demos?|eg)\b/; # ignore unneeded unicore files if ( $dir =~ /^unicore/ ) { if ( $name =~ /\.txt\z/ ) { # We can ignore most, but not all .txt files return unless $name =~ /\A(?:Blocks|SpecialCasing|NamedSequences)\.txt\z/; } else { # TestProp only needed during testing return if $name =~ /\ATestProp.pl\z/; # we need version and *.pl files and can skip the rest return unless $name =~ /\A(?:version|\w+\.p[lm])\z/; } } # ignore READMEs, MANIFESTs, INSTALL docs, META.ymls and change logs. # Changes.e2x and README.e2x are needed by enc2xs. return if $name =~ m{^(?:README(?:\.\w+)?)$} && $name ne 'README.e2x'; return if $name =~ m{^(?:MANIFEST|META\.yml)$}; return if $name =~ m{^(?:INSTALL|TODO|BUGS|CREDITS)$}i; return if $name =~ m{^change(?:s|log)(?:\.libnet)?$}i; return if $name =~ m{^(?:SIGNATURE|PAUSE200\d\.pub)$}; # CPAN files return if $name =~ m{^(?:NOTES|PATCHING)$}; # ExtUtils files # if using a shared perl library then ignore: # - static library files [of statically linked extensions]; # - import library files and export library files (only present on Win32 # anyway?) and empty bootstrap files [of dynamically linked extensions]. return if $Config{useshrplib} eq 'true' and ($name =~ /$Config{_a}$/ or $name =~ /\.exp$/ or ($name =~ /\.bs$/ and -z $name)); $name = "$dir/$name" if $dir ne ''; # ignore pods that are stand alone documentation from dual life modules. return if /\.pod\z/ && is_duplicate_pod($_); return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS; my $installlib = $installprivlib; if ($dir =~ /^auto\// || ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) || ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) || $name=~/^Config_(heavy|git)\.pl\z/ ) { $installlib = $installarchlib; return unless $do_installarchlib; } else { return unless $do_installprivlib; } if ($Is_NetWare && !$opts{netware} && /\.(?:nlp|nlm|bs)$/) { # Don't copy .nlp,.nlm files, doesn't make sense on Windows and also # if copied will give problems when building new extensions. # Has to be copied if we are installing on a NetWare server and # hence the check !$opts{netware} return; } if (-f $_) { my $xname = "$installlib/$name"; $xname =~ s/^\Q$opts{destdir}\E//; $packlist->{$xname} = { type => 'file' }; if ($opts{force} || compare($_, "$installlib/$name") || $opts{notify}) { unlink("$installlib/$name"); mkpath("$installlib/$dir"); # HP-UX (at least) needs to maintain execute permissions # on dynamically-loaded libraries. if (copy_if_diff($_, "$installlib/$name")) { strip("-S", "$installlib/$name") if $^O eq 'darwin' and /\.(?:so|$dlext|a)$/; chmod(/\.(so|$dlext)$/ ? 0555 : 0444, "$installlib/$name"); } } } } # Copy $from to $to, only if $from is different than $to. # Also preserve modification times for .a libraries. # On some systems, if you do # ranlib libperl.a # cp libperl.a /usr/local/lib/perl5/archlib/CORE/libperl.a # and then try to link against the installed libperl.a, you might # get an error message to the effect that the symbol table is older # than the library. # Return true if copying occurred. sub copy_if_diff { my($from,$to)=@_; return 1 if (($^O eq 'VMS') && (-d $from)); my $xto = $to; $xto =~ s/^\Q$opts{destdir}\E//; my $perlpodbadsymlink; if ($from =~ m!^pod/perl[\w-]+\.pod$! && -l $from && ! -e $from) { # Some Linux implementations have problems traversing over # multiple symlinks (when going over NFS?) and fail to read # the symlink target. Combine this with the fact that some # of the pod files (the perl$OS.pod) are symlinks (to ../README.$OS), # and you end up with those pods not getting installed. $perlpodbadsymlink = 1; } -f $from || $perlpodbadsymlink || warn "$0: $from not found"; $packlist->{$xto} = { type => 'file' }; if ($opts{force} || compare($from, $to) || $opts{notify}) { safe_unlink($to); # In case we don't have write permissions. if ($perlpodbadsymlink && $from =~ m!^pod/perl(.+)\.pod$!) { $from = "README.$1"; } copy($from, $to); # Restore timestamps if it's a .a library or for OS/2. if (!$opts{notify} && ($Is_OS2 || $to =~ /\.a$/)) { my ($atime, $mtime) = (stat $from)[8,9]; utime $atime, $mtime, $to; } 1; } } sub strip { my(@args) = @_; return unless $opts{strip}; my @opts; while (@args && $args[0] =~ /^(-\w+)$/) { push @opts, shift @args; } foreach my $file (@args) { if (-f $file) { if ($opts{verbose}) { print " strip " . join(' ', @opts); print " " if (@opts); print "$file\n"; } system("strip", @opts, $file); } else { print "# file '$file' skipped\n" if $opts{verbose}; } } } # Local variables: # cperl-indent-level: 4 # indent-tabs-mode: nil # End: # # ex: set ts=8 sts=4 sw=4 et: