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
#!perl @TODO = qw [ SAVEt_SAVESWITCHSTACK ]; @TODO{@TODO} = (); BEGIN { chdir 't'; unshift @INC, "../lib"; require './test.pl' } use Config; if ( $Config{usecrosscompile} ) { skip_all( "Not all files are available during cross-compilation" ); } sub read_cases { my ($file, $func) = @_; open my $fh, $file or die "$0 cannot open $file: $!"; while (readline $fh) { last if /^Perl_$func/; } my %found; while (readline $fh) { last if /^}/; $found{$1}++ if /case (SAVEt_\w*):/; } close $fh or die "$0 cannot close $file: $!"; \%found; } my $leave_scope = read_cases "../scope.c", "leave_scope"; my $ss_dup = read_cases "../sv.c", "ss_dup"; ok scalar %$leave_scope, 'we got some'; for (sort keys %$leave_scope) { local $::TODO = ' ' if exists $TODO{$_}; ok exists $$ss_dup{$_}, "ss_dup handles $_"; } done_testing;