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 /
t /
porting /
Delete
Unzip
Name
Size
Permission
Date
Action
FindExt.t
2.62
KB
-r--r--r--
2014-12-27 11:49
args_assert.t
1.39
KB
-r--r--r--
2014-12-27 11:49
authors.t
462
B
-r--r--r--
2014-12-27 11:49
bincompat.t
446
B
-r--r--r--
2014-12-27 11:49
checkcase.t
1.17
KB
-r--r--r--
2014-12-27 11:49
checkcfgvar.t
1.36
KB
-r--r--r--
2014-12-27 11:49
cmp_version.t
486
B
-r--r--r--
2014-12-27 11:49
copyright.t
1.88
KB
-r--r--r--
2014-12-27 11:49
corelist.t
532
B
-r--r--r--
2015-01-28 21:08
customized.dat
3.13
KB
-r--r--r--
2015-01-31 22:00
customized.t
3.02
KB
-r--r--r--
2014-12-27 11:49
diag.t
23.62
KB
-r--r--r--
2015-01-15 22:12
dual-life.t
1.63
KB
-r--r--r--
2014-12-27 11:49
exec-bit.t
1.81
KB
-r--r--r--
2014-12-27 11:49
extrefs.t
3.32
KB
-r--r--r--
2014-12-27 11:49
filenames.t
1.9
KB
-r--r--r--
2014-12-27 11:49
globvar.t
1.82
KB
-r--r--r--
2014-12-27 11:49
known_pod_issues.dat
9.81
KB
-r--r--r--
2015-01-17 16:54
maintainers.t
884
B
-r--r--r--
2014-12-27 11:49
manifest.t
3.05
KB
-r--r--r--
2014-12-27 11:49
pending-author.t
1.75
KB
-r--r--r--
2014-12-27 11:49
perlfunc.t
1.39
KB
-r--r--r--
2014-12-27 11:49
pod_rules.t
1.04
KB
-r--r--r--
2014-12-27 11:49
podcheck.t
75.45
KB
-r--r--r--
2014-12-27 12:37
readme.t
2.22
KB
-r--r--r--
2014-12-27 11:49
regen.t
2.04
KB
-r--r--r--
2014-12-27 12:37
ss_dup.t
863
B
-r--r--r--
2014-12-27 11:49
test_bootstrap.t
2.42
KB
-r--r--r--
2014-12-27 11:49
utils.t
3.3
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
#!/usr/bin/perl # Finds the files that have the same name, case insensitively in the build tree BEGIN { @INC = '..' if -f '../TestInit.pm'; require './test.pl'; } use TestInit qw(T); # T is chdir to the top level use warnings; use strict; use File::Find; my %files; my $test_count = 0; find({no_chdir => 1, wanted => sub { my $name = $File::Find::name; # Assumes that the path separator is exactly one character. $name =~ s/^\..//; # Special exemption for Makefile, makefile return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!; if ($name eq '.git') { # Don't scan the .git directory, as its contents are outside # our control. In particular, as fetch doesn't default to # --prune, # someone pushing a branch upstream with a name # which case-conflicts with a previously deleted branch will # cause action-at-a-distance failures, because locally # .git/logs/refs/remotes will contain both. ++$File::Find::prune; return; } push @{$files{lc $name}}, $name; }}, '.'); foreach (sort values %files) { is( @$_, 1, join(", ", @$_) ) or do{ note($_) foreach @$_; }; } done_testing();