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 # Some quick tests to see if h2xs actually runs and creates files as # expected. File contents include date stamps and/or usernames # hence are not checked. File existence is checked with -e though. # This test depends on File::Path::rmtree() to clean up with. # - pvhp # # We are now checking that the correct use $version; is present in # Makefile.PL and $module.pm BEGIN { chdir 't' if -d 't'; @INC = '../lib'; # FIXME (or rather FIXh2xs) require Config; if (($Config::Config{'extensions'} !~ m!\bDevel/PPPort\b!) ){ print "1..0 # Skip -- Perl configured without Devel::PPPort module\n"; exit 0; } } # use strict; # we are not really testing this use File::Path; # for cleaning up with rmtree() use Test::More; use File::Spec; use File::Find; use ExtUtils::Manifest; # Don't want its diagnostics getting in the way of ours. $ExtUtils::Manifest::Quiet=1; my $up = File::Spec->updir(); my $extracted_program = '../utils/h2xs'; # unix, nt, ... my $Is_VMS_traildot = 0; if ($^O eq 'VMS') { $extracted_program = '[-.utils]h2xs.com'; # We have to know if VMS is in UNIX mode. In UNIX mode, trailing dots # should not be present. There are actually two settings that control this. $Is_VMS_traildot = 1; my $unix_rpt = 0; my $drop_dot = 0; if (eval 'require VMS::Feature') { $unix_rpt = VMS::Feature::current('filename_unix_report'); $drop_dot = VMS::Feature::current('readdir_dropdotnotype'); } else { my $unix_report = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; $unix_rpt = $unix_report =~ /^[ET1]/i; my $drop_dot_notype = $ENV{'DECC$READDIR_DROPDOTNOTYPE'} || ''; $drop_dot = $drop_dot_notype =~ /^[ET1]/i; } $Is_VMS_traildot = 0 if $drop_dot && unix_rpt; } if (!(-e $extracted_program)) { print "1..0 # Skip: $extracted_program was not built\n"; exit 0; } # You might also wish to bail out if your perl platform does not # do `$^X -e 'warn "Writing h2xst"' 2>&1`; duplicity. # ok on unix, nt, VMS, ... my $dupe = '2>&1'; # ok on unix, nt, The extra \" are for VMS my $lib = '"-I../lib" "-I../../lib"'; # $name should differ from system header file names and must # not already be found in the t/ subdirectory for perl. my $name = 'h2xst'; my $header = "$name.h"; my $thisversion = sprintf "%vd", $^V; $thisversion =~ s/^v//; # If this test has failed previously a copy may be left. rmtree($name); my @tests = ( "-f -n $name", $], <<"EOXSFILES", Defaulting to backwards compatibility with perl $thisversion If you intend this module to be compatible with earlier perl versions, please specify a minimum perl version with the -b option. Writing $name/ppport.h Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b $thisversion", $], <<"EOXSFILES", Writing $name/ppport.h Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b 5.6.1", "5.006001", <<"EOXSFILES", Writing $name/ppport.h Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b 5.5.3", "5.00503", <<"EOXSFILES", Writing $name/ppport.h Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "\"-X\" -f -n $name -b $thisversion", $], <<"EONOXSFILES", Writing $name/lib/$name.pm Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EONOXSFILES "-f -n $name -b $thisversion $header", $], <<"EOXSFILES", Writing $name/ppport.h Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES ); my $total_tests = 3; # opening, closing and deleting the header file. for (my $i = $#tests; $i > 0; $i-=3) { # 1 test for running it, 1 test for the expected result, and 1 for each file # plus 1 to open and 1 to check for the use in lib/$name.pm and Makefile.PL # And 1 more for our check for "bonus" files, 2 more for ExtUtil::Manifest. # And 1 more to examine const-c.inc contents in tests that use $header. # use the () to force list context and hence count the number of matches. $total_tests += 9 + (() = $tests[$i] =~ /(Writing)/sg); $total_tests++ if $tests[$i-2] =~ / \Q$header\E$/; } plan tests => $total_tests; ok (open (HEADER, ">$header"), "open '$header'"); print HEADER <<HEADER or die $!; #define Camel 2 #define Dromedary 1 #define Bactrian /* empty */ #define Bactrian2 HEADER ok (close (HEADER), "close '$header'"); while (my ($args, $version, $expectation) = splice @tests, 0, 3) { # h2xs warns about what it is writing hence the (possibly unportable) # 2>&1 dupe: # does it run? my $prog = "$^X $lib $extracted_program $args $dupe"; @result = `$prog`; cmp_ok ($?, "==", 0, "running $prog "); $result = join("",@result); #print "# expectation is >$expectation<\n"; #print "# result is >$result<\n"; # Was the output the list of files that were expected? is ($result, $expectation, "running $prog"); my (%got); find (sub {$got{$File::Find::name}++ unless -d $_}, $name); foreach ($expectation =~ /Writing\s+(\S+)/gm) { if ($^O eq 'VMS') { if ($Is_VMS_traildot) { $_ .= '.' unless $_ =~ m/\./; } $_ = lc($_) unless exists $got{$_}; } ok (-e $_, "check for $_") and delete $got{$_}; } my @extra = keys %got; unless (ok (!@extra, "Are any extra files present?")) { print "# These files are unexpectedly present:\n"; print "# $_\n" foreach sort @extra; } chdir ($name) or die "chdir $name failed: $!"; # Aargh. Something wants to load a bit of regexp. And we have to chdir # for ExtUtils::Manifest. Caught between a rock and a hard place, so this # seems the least evil thing to do: push @INC, "../../lib"; my ($missing, $extra) = ExtUtils::Manifest::fullcheck(); is_deeply ($missing, [], "No files in the MANIFEST should be missing"); is_deeply ($extra, [], "and all files present should be in the MANIFEST"); pop @INC; chdir ($up) or die "chdir $up failed: $!"; if ($args =~ / \Q$header\E$/) { my $const_c = File::Spec->catfile($name, 'fallback', 'const-c.inc'); my ($found, $diag); if (!open FILE, '<', $const_c) { $diag = "can't open $const_c: $!"; } else { while (<FILE>) { next unless /\b Bactrian 2? \b/x; $found = 1; last; } } ok (!$found, "generated $const_c has no Bactrian(2)"); diag ($diag) if defined $diag; } foreach my $leaf (File::Spec->catfile('lib', "$name.pm"), 'Makefile.PL') { my $file = File::Spec->catfile($name, $leaf); if (ok (open (FILE, $file), "open $file")) { my $match = qr/use $version;/; my $found; while (<FILE>) { last if $found = /$match/; } ok ($found, "looking for /$match/ in $file"); close FILE or die "close $file: $!"; } } # clean up rmtree($name); } cmp_ok (unlink ($header), "==", 1, "unlink '$header'") or die "\$! is $!";