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 /
lib /
Delete
Unzip
Name
Size
Permission
Date
Action
App
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Archive
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
Attribute
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
B
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
CGI
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
CPAN
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
Carp
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
Class
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Compress
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
Config
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
DBM_Filter
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Data
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
Devel
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Digest
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Encode
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Exporter
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
ExtUtils
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
File
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Filter
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Getopt
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
HTTP
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
Hash
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
I18N
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
IO
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
IPC
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
JSON
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
List
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Locale
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
MIME
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
Math
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Memoize
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Module
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Net
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Package
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Params
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Parse
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Perl
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
PerlIO
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
Pod
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Scalar
[ DIR ]
drwxr-xr-x
2016-10-10 17:39
Search
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Sys
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
TAP
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Term
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Test
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Text
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Thread
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Tie
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
Time
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
Unicode
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
User
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
XS
[ DIR ]
drwxr-xr-x
2016-10-10 17:41
auto
[ DIR ]
drwxr-xr-x
2016-10-10 18:16
autodie
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
encoding
[ DIR ]
drwxr-xr-x
2016-10-10 17:36
feature
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
inc
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
overload
[ DIR ]
drwxr-xr-x
2016-10-10 18:13
perl5db
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
threads
[ DIR ]
drwxr-xr-x
2016-10-10 17:40
unicore
[ DIR ]
drwxr-xr-x
2016-10-10 18:53
version
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
warnings
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
.exists
0
B
-rw-r--r--
2016-10-10 18:16
AnyDBM_File.pm
2.56
KB
-r--r--r--
2014-12-27 11:48
AnyDBM_File.t
3.36
KB
-r--r--r--
2014-12-27 11:48
AutoLoader.pm
15.43
KB
-r--r--r--
2014-12-27 11:48
AutoSplit.pm
19.18
KB
-r--r--r--
2014-12-27 11:48
B.pm
28.07
KB
-r--r--r--
2014-12-27 11:49
Benchmark.pm
29.22
KB
-r--r--r--
2014-12-27 11:49
Benchmark.t
21.04
KB
-r--r--r--
2014-12-27 11:48
CGI.pm
255.23
KB
-r--r--r--
2014-12-27 11:49
CORE.pod
3.19
KB
-r--r--r--
2014-12-27 11:48
CPAN.pm
134.45
KB
-r--r--r--
2014-12-27 11:48
Carp.pm
27.8
KB
-r--r--r--
2014-12-27 11:49
Config.pm
3.18
KB
-rw-r--r--
2016-10-10 17:36
Config.pod
229.34
KB
-rw-r--r--
2016-10-10 17:36
Config.t
8.26
KB
-r--r--r--
2014-12-27 11:48
Config_git.pl
409
B
-rw-r--r--
2016-10-10 17:36
Config_heavy.pl
40.41
KB
-rw-r--r--
2016-10-10 17:36
Cwd.pm
21.95
KB
-r--r--r--
2015-01-10 12:06
DB.pm
18.5
KB
-r--r--r--
2014-12-27 11:48
DB.t
16.28
KB
-r--r--r--
2014-12-27 11:48
DBM_Filter.pm
14.05
KB
-r--r--r--
2014-12-27 11:48
DB_File.pm
62.24
KB
-r--r--r--
2016-10-10 17:38
Digest.pm
10.35
KB
-r--r--r--
2014-12-27 11:48
DirHandle.pm
1.52
KB
-r--r--r--
2014-12-27 11:48
DirHandle.t
930
B
-r--r--r--
2014-12-27 11:48
Dumpvalue.pm
16.5
KB
-r--r--r--
2014-12-27 11:48
DynaLoader.pm
24.99
KB
-r--r--r--
2016-10-10 17:38
Encode.pm
32.44
KB
-r--r--r--
2014-12-27 11:49
English.pm
4.64
KB
-r--r--r--
2014-12-27 11:48
English.t
4.11
KB
-r--r--r--
2014-12-27 11:48
Env.pm
5.39
KB
-r--r--r--
2014-12-27 11:48
Errno.pm
6.33
KB
-r--r--r--
2016-10-10 17:36
Exporter.pm
18.31
KB
-r--r--r--
2014-12-27 11:49
Fatal.pm
59.38
KB
-r--r--r--
2014-12-27 11:49
Fcntl.pm
3.83
KB
-r--r--r--
2014-12-27 11:49
FileCache.pm
5.44
KB
-r--r--r--
2014-12-27 11:48
FileHandle.pm
6.62
KB
-r--r--r--
2014-12-27 11:48
FileHandle.t
2.48
KB
-r--r--r--
2014-12-27 11:48
FindBin.pm
4.45
KB
-r--r--r--
2014-12-27 11:48
FindBin.t
338
B
-r--r--r--
2014-12-27 11:48
GDBM_File.pm
1.51
KB
-r--r--r--
2014-12-27 11:48
IO.pm
1.36
KB
-r--r--r--
2014-12-27 11:49
Internals.t
5.04
KB
-r--r--r--
2014-12-27 11:48
Memoize.pm
35.28
KB
-r--r--r--
2014-12-27 11:48
NDBM_File.pm
2.44
KB
-r--r--r--
2014-12-27 11:49
NEXT.pm
18.05
KB
-r--r--r--
2014-12-27 11:48
O.pm
4.11
KB
-r--r--r--
2014-12-27 11:48
Opcode.pm
15.33
KB
-r--r--r--
2014-12-27 11:49
POSIX.pm
16.44
KB
-r--r--r--
2014-12-27 11:49
POSIX.pod
65.45
KB
-r--r--r--
2014-12-27 11:49
PerlIO.pm
10.21
KB
-r--r--r--
2014-12-27 11:48
SDBM_File.pm
3.46
KB
-r--r--r--
2014-12-27 11:49
Safe.pm
24.27
KB
-r--r--r--
2014-12-27 11:49
SelectSaver.pm
1.05
KB
-r--r--r--
2014-12-27 11:48
SelectSaver.t
365
B
-r--r--r--
2014-12-27 11:48
SelfLoader.pm
16.94
KB
-r--r--r--
2014-12-27 11:49
Socket.pm
35.47
KB
-r--r--r--
2014-12-27 11:49
Storable.pm
42.13
KB
-r--r--r--
2015-01-15 22:12
Symbol.pm
4.68
KB
-r--r--r--
2014-12-27 11:48
Symbol.t
2.52
KB
-r--r--r--
2014-12-27 11:48
Test.pm
28.12
KB
-r--r--r--
2014-12-27 11:48
Thread.pm
8.09
KB
-r--r--r--
2014-12-27 11:48
Thread.t
1.59
KB
-r--r--r--
2014-12-27 11:48
UNIVERSAL.pm
6.97
KB
-r--r--r--
2014-12-27 11:49
XSLoader.pm
9.99
KB
-r--r--r--
2016-10-10 17:38
_charnames.pm
31.63
KB
-r--r--r--
2014-12-27 11:49
arybase.pm
2.75
KB
-r--r--r--
2014-12-27 11:49
attributes.pm
15.95
KB
-r--r--r--
2014-12-27 12:30
autodie.pm
11.9
KB
-r--r--r--
2014-12-27 11:49
autouse.pm
4.14
KB
-r--r--r--
2014-12-27 11:48
base.pm
7.21
KB
-r--r--r--
2014-12-27 11:48
bigint.pm
18.29
KB
-r--r--r--
2014-12-27 11:49
bignum.pm
17.7
KB
-r--r--r--
2014-12-27 11:49
bigrat.pm
13.58
KB
-r--r--r--
2014-12-27 11:49
blib.pm
2.04
KB
-r--r--r--
2014-12-27 11:48
blib.t
1.81
KB
-r--r--r--
2014-12-27 11:48
buildcustomize.pl
1.1
KB
-rw-r--r--
2016-10-10 17:36
bytes.pm
2.96
KB
-r--r--r--
2014-12-27 11:48
bytes.t
2.78
KB
-r--r--r--
2014-12-27 11:48
bytes_heavy.pl
758
B
-r--r--r--
2014-12-27 11:48
charnames.pm
20.39
KB
-r--r--r--
2014-12-27 11:49
charnames.t
372.58
KB
-r--r--r--
2014-12-27 11:49
constant.pm
13.99
KB
-r--r--r--
2014-12-27 11:49
dbm_filter_util.pl
1.83
KB
-r--r--r--
2014-12-27 11:48
deprecate.pm
3.01
KB
-r--r--r--
2014-12-27 11:48
diagnostics.pm
18.26
KB
-r--r--r--
2014-12-27 11:48
diagnostics.t
7.1
KB
-r--r--r--
2014-12-27 11:49
dumpvar.pl
15.24
KB
-r--r--r--
2014-12-27 11:48
dumpvar.t
5.81
KB
-r--r--r--
2014-12-27 11:48
encoding.pm
20.04
KB
-r--r--r--
2014-12-27 11:49
experimental.pm
3.88
KB
-r--r--r--
2014-12-27 11:49
feature.pm
13.46
KB
-rw-r--r--
2014-12-27 12:46
feature.t
78
B
-r--r--r--
2014-12-27 11:48
fields.pm
9.24
KB
-r--r--r--
2014-12-27 11:48
filetest.pm
3.91
KB
-r--r--r--
2014-12-27 11:48
filetest.t
3
KB
-r--r--r--
2014-12-27 11:48
h2ph.t
1.58
KB
-r--r--r--
2014-12-27 11:48
h2xs.t
7.64
KB
-r--r--r--
2014-12-27 11:48
if.pm
2.63
KB
-r--r--r--
2014-12-27 11:48
integer.pm
3.18
KB
-r--r--r--
2014-12-27 11:48
integer.t
1.32
KB
-r--r--r--
2014-12-27 11:48
less.pm
3.13
KB
-r--r--r--
2014-12-27 11:48
less.t
901
B
-r--r--r--
2014-12-27 11:48
lib.pm
5.87
KB
-r--r--r--
2016-10-10 17:37
locale.pm
2.13
KB
-r--r--r--
2014-12-27 11:49
locale.t
72.86
KB
-r--r--r--
2014-12-27 11:49
mro.pm
9.86
KB
-r--r--r--
2014-12-27 11:49
open.pm
7.83
KB
-r--r--r--
2014-12-27 11:48
open.t
6.4
KB
-r--r--r--
2014-12-27 11:48
ops.pm
997
B
-r--r--r--
2014-12-27 11:48
overload.pm
51.41
KB
-r--r--r--
2014-12-27 11:49
overload.t
71.98
KB
-r--r--r--
2014-12-27 11:49
overload64.t
8.33
KB
-r--r--r--
2014-12-27 11:48
overloading.pm
1.77
KB
-r--r--r--
2014-12-27 11:48
overloading.t
3.25
KB
-r--r--r--
2014-12-27 11:48
parent.pm
2.83
KB
-r--r--r--
2014-12-27 11:48
perl5db.pl
307.01
KB
-r--r--r--
2014-12-27 11:49
perl5db.t
56.06
KB
-r--r--r--
2014-12-27 11:49
perldoc.pod
8.69
KB
-r--r--r--
2014-12-27 11:48
perlfaq.pm
94
B
-r--r--r--
2014-12-27 11:49
perlfaq.pod
22.18
KB
-r--r--r--
2014-12-27 11:48
perlfaq1.pod
14.36
KB
-r--r--r--
2014-12-27 11:49
perlfaq2.pod
9.24
KB
-r--r--r--
2014-12-27 11:49
perlfaq3.pod
37.67
KB
-r--r--r--
2014-12-27 11:48
perlfaq4.pod
87.39
KB
-r--r--r--
2014-12-27 11:49
perlfaq5.pod
54.11
KB
-r--r--r--
2014-12-27 11:49
perlfaq6.pod
38.66
KB
-r--r--r--
2014-12-27 11:49
perlfaq7.pod
36.98
KB
-r--r--r--
2014-12-27 11:49
perlfaq8.pod
48.9
KB
-r--r--r--
2014-12-27 11:48
perlfaq9.pod
14.7
KB
-r--r--r--
2014-12-27 11:48
perlglossary.pod
133.98
KB
-r--r--r--
2014-12-27 11:48
perlxs.pod
76.6
KB
-r--r--r--
2014-12-27 11:49
perlxstut.pod
48.91
KB
-r--r--r--
2014-12-27 11:48
perlxstypemap.pod
23.02
KB
-r--r--r--
2014-12-27 11:49
re.pm
17.55
KB
-r--r--r--
2014-12-27 11:49
sigtrap.pm
7.44
KB
-r--r--r--
2014-12-27 11:48
sigtrap.t
2.65
KB
-r--r--r--
2014-12-27 11:48
sort.pm
5.94
KB
-r--r--r--
2014-12-27 11:48
sort.t
5.54
KB
-r--r--r--
2014-12-27 11:49
strict.pm
3.83
KB
-r--r--r--
2014-12-27 11:49
strict.t
439
B
-r--r--r--
2014-12-27 11:49
subs.pm
848
B
-r--r--r--
2014-12-27 11:48
subs.t
79
B
-r--r--r--
2014-12-27 11:48
threads.pm
34.93
KB
-r--r--r--
2014-12-27 11:49
utf8.pm
7.64
KB
-r--r--r--
2014-12-27 11:49
utf8.t
21.67
KB
-r--r--r--
2014-12-27 11:48
utf8_heavy.pl
31
KB
-r--r--r--
2014-12-27 11:49
vars.pm
2.36
KB
-r--r--r--
2014-12-27 11:48
vars.t
2.68
KB
-r--r--r--
2014-12-27 11:48
vars_carp.t
246
B
-r--r--r--
2014-12-27 11:48
version.pm
1.58
KB
-r--r--r--
2014-12-27 11:48
version.pod
9.62
KB
-r--r--r--
2014-12-27 11:48
vmsish.pm
4.21
KB
-r--r--r--
2014-12-27 11:48
vmsish.t
7.21
KB
-r--r--r--
2014-12-27 11:48
warnings.pm
38.5
KB
-rw-r--r--
2014-12-27 11:49
warnings.t
120
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl -w BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require "./test.pl"; plan ('no_plan'); use_ok('Config'); } use strict; # Some (safe?) bets. ok(keys %Config > 500, "Config has more than 500 entries"); my ($first) = Config::config_sh() =~ /^(\S+)=/m; die "Can't find first entry in Config::config_sh()" unless defined $first; print "# First entry is '$first'\n"; # It happens that the we know what the first key should be. This is somewhat # cheating, but there was briefly a bug where the key got a bonus newline. my ($first_each) = each %Config; is($first_each, $first, "First key from each is correct"); ok(exists($Config{$first_each}), "First key exists"); ok(!exists($Config{"\n$first"}), "Check that first key with prepended newline isn't falsely existing"); is($Config{PERL_REVISION}, 5, "PERL_REVISION is 5"); # Check that old config variable names are aliased to their new ones. my %grandfathers = ( PERL_VERSION => 'PATCHLEVEL', PERL_SUBVERSION => 'SUBVERSION', PERL_CONFIG_SH => 'CONFIG' ); while( my($new, $old) = each %grandfathers ) { isnt($Config{$new}, undef, "$new is defined"); is($Config{$new}, $Config{$old}, "$new is aliased to $old"); } ok( exists $Config{cc}, "has cc"); ok( exists $Config{ccflags}, "has ccflags"); ok(!exists $Config{python}, "has no python"); ok( exists $Config{d_fork}, "has d_fork"); ok(!exists $Config{d_bork}, "has no d_bork"); like($Config{ivsize}, qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})"); # byteorder is virtual, but it has rules. like($Config{byteorder}, qr/^(1234|4321|12345678|87654321)$/, "byteorder is 1234 or 4321 or 12345678 or 87654321 " . "(it is $Config{byteorder})"); is(length $Config{byteorder}, $Config{ivsize}, "byteorder is as long as ivsize (which is $Config{ivsize})"); # ccflags_nolargefiles is virtual, too. ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles"); # Utility functions. { # make sure we can export what we say we can export. package Foo; my @exports = qw(myconfig config_sh config_vars config_re); Config->import(@exports); foreach my $func (@exports) { ::ok( __PACKAGE__->can($func), "$func exported" ); } } like(Config::myconfig(), qr/osname=\Q$Config{osname}\E/, "myconfig"); like(Config::config_sh(), qr/osname='\Q$Config{osname}\E'/, "config_sh"); like(Config::config_sh(), qr/byteorder='[1-8]+'/, "config_sh has a valid byteorder"); foreach my $line (Config::config_re('c.*')) { like($line, qr/^c.*?=.*$/, 'config_re' ); } my $out = tie *STDOUT, 'FakeOut'; Config::config_vars('cc'); # non-regex test of essential cfg-var my $out1 = $$out; $out->clear; Config::config_vars('d_bork'); # non-regex, non-existent cfg-var my $out2 = $$out; $out->clear; Config::config_vars('PERL_API_.*'); # regex, tagged multi-line answer my $out3 = $$out; $out->clear; Config::config_vars('PERL_API_.*:'); # regex, tagged single-line answer my $out4 = $$out; $out->clear; Config::config_vars(':PERL_API_.*:'); # regex, non-tagged single-line answer my $out5 = $$out; $out->clear; Config::config_vars(':PERL_API_.*'); # regex, non-tagged multi-line answer my $out6 = $$out; $out->clear; Config::config_vars('PERL_API_REVISION.*:'); # regex, tagged my $out7 = $$out; $out->clear; # regex, non-tagged multi-line answer Config::config_vars(':PERL_API_REVISION.*'); my $out8 = $$out; $out->clear; Config::config_vars('PERL_EXPENSIVE_.*:'); # non-matching regex my $out9 = $$out; $out->clear; Config::config_vars('?flags'); # bogus regex, no explicit warning ! my $out10 = $$out; $out->clear; undef $out; untie *STDOUT; like($out1, qr/^cc='\Q$Config{cc}\E';/, "found config_var cc"); like($out2, qr/^d_bork='UNKNOWN';/, "config_var d_bork is UNKNOWN"); # test for leading, trailing colon effects # Split in scalar context it deprecated, and will warn. my @tmp; is(scalar (@tmp = split(/;\n/, $out3)), 3, "3 lines found"); is(scalar (@tmp = split(/;\n/, $out6)), 3, "3 lines found"); is($out4 =~ /(;\n)/s, '', "trailing colon gives 1-line response: $out4"); is($out5 =~ /(;\n)/s, '', "trailing colon gives 1-line response: $out5"); is(scalar (@tmp = split(/=/, $out3)), 4, "found 'tag='"); is(scalar (@tmp = split(/=/, $out4)), 4, "found 'tag='"); my @api; my @rev = @Config{qw(PERL_API_REVISION PERL_API_VERSION PERL_API_SUBVERSION)}; print ("# test tagged responses, multi-line and single-line\n"); foreach my $api ($out3, $out4) { @api = $api =~ /PERL_API_(\w+)=(.*?)(?:;\n|\s)/mg; is($api[0], "REVISION", "REVISION tag"); is($api[4], "VERSION", "VERSION tag"); is($api[2], "SUBVERSION", "SUBVERSION tag"); is($api[1], "'$rev[0]'", "REVISION is $rev[0]"); is($api[5], "'$rev[1]'", "VERSION is $rev[1]"); is($api[3], "'$rev[2]'", "SUBVERSION is $rev[2]"); } print("# test non-tagged responses, multi-line and single-line\n"); foreach my $api ($out5, $out6) { @api = split /(?: |;\n)/, $api; is($api[0], "'$rev[0]'", "revision is $rev[0]"); is($api[2], "'$rev[1]'", "version is $rev[1]"); is($api[1], "'$rev[2]'", "subversion is $rev[2]"); } # compare to each other, the outputs for trailing, leading colon $out7 =~ s/ $//; is("$out7;\n", "PERL_API_REVISION=$out8", "got expected diffs"); like($out9, qr/\bnot\s+found\b/, "$out9 - perl is FREE !"); like($out10, qr/\bnot\s+found\b/, "config_vars with invalid regexp"); # Read-only. undef $@; eval { $Config{d_bork} = 'borkbork' }; like($@, qr/Config is read-only/, "no STORE"); ok(!exists $Config{d_bork}, "still no d_bork"); undef $@; eval { delete $Config{d_fork} }; like($@, qr/Config is read-only/, "no DELETE"); ok( exists $Config{d_fork}, "still d_fork"); undef $@; eval { %Config = () }; like($@, qr/Config is read-only/, "no CLEAR"); ok( exists $Config{d_fork}, "still d_fork"); { package FakeOut; sub TIEHANDLE { bless(\(my $text), $_[0]); } sub clear { ${ $_[0] } = ''; } sub PRINT { my $self = shift; $$self .= join('', @_); } } # Signal-related variables # (this is actually a regression test for Configure.) is($Config{sig_num_init} =~ tr/,/,/, $Config{sig_size}, "sig_num_init size"); is($Config{sig_name_init} =~ tr/,/,/, $Config{sig_size}, "sig_name_init size"); # Test the troublesome virtual stuff my @virtual = qw(byteorder ccflags_nolargefiles ldflags_nolargefiles libs_nolargefiles libswanted_nolargefiles); # Also test that the first entry in config.sh is found correctly. There was # special casing code for this foreach my $pain ($first, @virtual) { # No config var is named with anything that is a regexp metachar ok(exists $Config{$pain}, "\$config('$pain') exists"); my @result = $Config{$pain}; is (scalar @result, 1, "single result for \$config('$pain')"); @result = Config::config_re($pain); is (scalar @result, 1, "single result for config_re('$pain')"); like ($result[0], qr/^$pain=(['"])\Q$Config{$pain}\E\1$/, # grr ' "which is the expected result for $pain"); } # Check that config entries appear correctly in @INC # TestInit.pm has probably already messed with our @INC # This little bit of evil is to avoid a @ in the program, in case it confuses # shell 1 liners. We used to use a perl 1-ism, until that was deprecated, so # now some octal in an eval. my ($path, $ver, @orig_inc) = split /\n/, runperl (nolib=>1, prog=>'print qq{$_\n} foreach $^X, $], eval qq{\100INC}'); die "This perl is $] at $^X; other perl is $ver (at $path) " . '- failed to find this perl' unless $] eq $ver; my %orig_inc; @orig_inc{@orig_inc} = (); my $failed; # This [used to be] the order that directories are pushed onto @INC in perl.c: foreach my $lib (qw(applibexp archlibexp privlibexp sitearchexp sitelibexp vendorarchexp vendorlibexp)) { my $dir = $Config{$lib}; SKIP: { skip "lib $lib not in \@INC on Win32" if $^O eq 'MSWin32'; skip "lib $lib not defined" unless defined $dir; skip "lib $lib not set" unless length $dir; # May be in @INC in either Unix or VMS format on VMS. if ($^O eq 'VMS' && !exists($orig_inc{$dir})) { $dir = VMS::Filespec::unixify($dir); $dir =~ s|/$||; } # So we expect to find it in @INC ok (exists $orig_inc{$dir}, "Expect $lib '$dir' to be in \@INC") or $failed++; } } _diag ('@INC is:', @orig_inc) if $failed;