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 /
ext /
XS-APItest /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
BHK.pm
260
B
-r--r--r--
2014-12-27 11:48
Block.pm
9
B
-r--r--r--
2014-12-27 11:48
Markers.pm
245
B
-r--r--r--
2014-12-27 11:48
Null.pm
3
B
-r--r--r--
2014-12-27 11:48
addissub.t
481
B
-r--r--r--
2014-12-27 11:48
arrayexpr.t
7.85
KB
-r--r--r--
2014-12-27 11:48
autoload.t
4.03
KB
-r--r--r--
2014-12-27 11:48
blockasexpr.t
1.46
KB
-r--r--r--
2014-12-27 11:48
blockhooks-csc.t
2.26
KB
-r--r--r--
2014-12-27 11:48
blockhooks.t
5.21
KB
-r--r--r--
2014-12-27 11:48
call.t
8.9
KB
-r--r--r--
2014-12-27 11:49
call_checker.t
4.03
KB
-r--r--r--
2014-12-27 11:49
caller.t
1.78
KB
-r--r--r--
2014-12-27 11:48
callregexec.t
2.46
KB
-r--r--r--
2014-12-27 11:49
check_warnings.t
495
B
-r--r--r--
2014-12-27 11:48
cleanup.t
1.41
KB
-r--r--r--
2014-12-27 11:48
clone-with-stack.t
1.45
KB
-r--r--r--
2015-01-10 12:06
cophh.t
280
B
-r--r--r--
2014-12-27 11:48
coplabel.t
112
B
-r--r--r--
2014-12-27 11:48
copstash.t
156
B
-r--r--r--
2014-12-27 11:48
copyhints.t
123
B
-r--r--r--
2014-12-27 11:48
customop.t
2.42
KB
-r--r--r--
2014-12-27 11:49
eval-filter.t
743
B
-r--r--r--
2014-12-27 11:48
exception.t
616
B
-r--r--r--
2014-12-27 11:48
fetch_pad_names.t
10.58
KB
-r--r--r--
2014-12-27 11:49
gotosub.t
351
B
-r--r--r--
2014-12-27 11:48
grok.t
2.07
KB
-r--r--r--
2014-12-27 11:49
gv_autoload4.t
2.01
KB
-r--r--r--
2014-12-27 11:48
gv_fetchmeth.t
2.3
KB
-r--r--r--
2014-12-27 11:48
gv_fetchmeth_autoload.t
3.38
KB
-r--r--r--
2014-12-27 11:48
gv_fetchmethod_flags.t
1.86
KB
-r--r--r--
2014-12-27 11:48
gv_init.t
489
B
-r--r--r--
2014-12-27 11:48
handy.t
15.33
KB
-r--r--r--
2014-12-27 11:49
hash.t
17.07
KB
-r--r--r--
2014-12-27 11:48
keyword_multiline.t
259
B
-r--r--r--
2014-12-27 11:48
keyword_plugin.t
1.15
KB
-r--r--r--
2014-12-27 11:48
labelconst.aux
146
B
-r--r--r--
2014-12-27 11:48
labelconst.t
2.63
KB
-r--r--r--
2014-12-27 11:48
labelconst_utf8.aux
194
B
-r--r--r--
2014-12-27 11:48
lexsub.t
524
B
-r--r--r--
2014-12-27 11:48
loopblock.t
1.46
KB
-r--r--r--
2014-12-27 11:48
looprest.t
1.39
KB
-r--r--r--
2014-12-27 11:48
lvalue.t
800
B
-r--r--r--
2014-12-27 11:48
magic.t
804
B
-r--r--r--
2014-12-27 11:49
magic_chain.t
115
B
-r--r--r--
2014-12-27 11:48
mro.t
237
B
-r--r--r--
2014-12-27 11:48
multicall.t
1.32
KB
-r--r--r--
2014-12-27 11:48
my_cxt.t
1.28
KB
-r--r--r--
2014-12-27 11:48
my_exit.t
790
B
-r--r--r--
2014-12-27 11:48
newCONSTSUB.t
2.58
KB
-r--r--r--
2014-12-27 11:48
op.t
359
B
-r--r--r--
2014-12-27 11:48
op_contextualize.t
120
B
-r--r--r--
2014-12-27 11:48
op_list.t
151
B
-r--r--r--
2014-12-27 11:48
overload.t
2.21
KB
-r--r--r--
2014-12-27 11:48
pad_scalar.t
1.83
KB
-r--r--r--
2014-12-27 11:48
peep.t
1013
B
-r--r--r--
2014-12-27 11:48
pmflag.t
192
B
-r--r--r--
2014-12-27 11:48
postinc.t
800
B
-r--r--r--
2014-12-27 11:48
printf.t
1.05
KB
-r--r--r--
2014-12-27 11:49
ptr_table.t
916
B
-r--r--r--
2014-12-27 11:48
push.t
746
B
-r--r--r--
2014-12-27 11:48
refs.t
578
B
-r--r--r--
2014-12-27 11:48
rmagical.t
823
B
-r--r--r--
2014-12-27 11:48
rv2cv_op_cv.t
115
B
-r--r--r--
2014-12-27 11:48
savehints.t
123
B
-r--r--r--
2014-12-27 11:48
scopelessblock.t
1.59
KB
-r--r--r--
2014-12-27 11:48
sort.t
411
B
-r--r--r--
2014-12-27 11:48
stmtasexpr.t
893
B
-r--r--r--
2014-12-27 11:48
stmtsasexpr.t
949
B
-r--r--r--
2014-12-27 11:48
stuff_modify_bug.t
151
B
-r--r--r--
2014-12-27 11:48
stuff_svcur_bug.t
260
B
-r--r--r--
2014-12-27 11:48
subcall.t
179
B
-r--r--r--
2014-12-27 11:48
sviscow.t
229
B
-r--r--r--
2014-12-27 11:48
svpeek.t
3.16
KB
-r--r--r--
2014-12-27 11:49
svpv.t
1.01
KB
-r--r--r--
2014-12-27 11:48
svpv_magic.t
1.29
KB
-r--r--r--
2014-12-27 11:48
svsetsv.t
1015
B
-r--r--r--
2014-12-27 11:48
swaplabel.t
7.06
KB
-r--r--r--
2014-12-27 11:48
swaptwostmts.t
2.79
KB
-r--r--r--
2014-12-27 11:48
sym-hook.t
730
B
-r--r--r--
2014-12-27 11:48
temp_lv_sub.t
532
B
-r--r--r--
2014-12-27 11:48
underscore_length.t
338
B
-r--r--r--
2014-12-27 11:48
utf16_to_utf8.t
2.09
KB
-r--r--r--
2014-12-27 11:48
utf8.t
13.46
KB
-r--r--r--
2014-12-27 11:48
whichsig.t
653
B
-r--r--r--
2014-12-27 11:48
xs_special_subs.t
6.54
KB
-r--r--r--
2014-12-27 11:48
xs_special_subs_require.t
7.46
KB
-r--r--r--
2014-12-27 11:48
xsub_h.t
2.81
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
use warnings; use strict; use Test::More tests => 76; use XS::APItest; XS::APItest::test_cv_getset_call_checker(); ok 1; my @z = (); my @a = qw(a); my @b = qw(a b); my @c = qw(a b c); my($foo_got, $foo_ret); sub foo($@) { $foo_got = [ @_ ]; return "z"; } sub bar (\@$) { } sub baz { } $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ 2, qw(a b c) ]; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = &foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_lists(\&foo); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = &foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_scalars(\&foo); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ 2, 3 ]; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = foo(@b, @c, @a, @c);}; is $@, ""; is_deeply $foo_got, [ 2, 3, 1, 3 ]; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = foo(@b);}; is $@, ""; is_deeply $foo_got, [ 2 ]; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = foo();}; is $@, ""; is_deeply $foo_got, []; is $foo_ret, "z"; $foo_got = undef; eval q{$foo_ret = &foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_proto(\&foo, "\\\@\$"); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ \@b, 3 ]; is $foo_ret, "z"; cv_set_call_checker_proto(\&foo, undef); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; isnt $@, ""; is_deeply $foo_got, undef; is $foo_ret, "z"; cv_set_call_checker_proto(\&foo, \&bar); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ \@b, 3 ]; is $foo_ret, "z"; cv_set_call_checker_proto(\&foo, \&baz); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; isnt $@, ""; is_deeply $foo_got, undef; is $foo_ret, "z"; cv_set_call_checker_proto_or_list(\&foo, "\\\@\$"); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ \@b, 3 ]; is $foo_ret, "z"; cv_set_call_checker_proto_or_list(\&foo, undef); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_proto_or_list(\&foo, \&bar); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ \@b, 3 ]; is $foo_ret, "z"; cv_set_call_checker_proto_or_list(\&foo, \&baz); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_multi_sum(\&foo); $foo_got = undef; eval q{$foo_ret = foo(@b, @c);}; is $@, ""; is_deeply $foo_got, undef; is $foo_ret, 5; $foo_got = undef; eval q{$foo_ret = foo(@b);}; is $@, ""; is_deeply $foo_got, undef; is $foo_ret, 2; $foo_got = undef; eval q{$foo_ret = foo();}; is $@, ""; is_deeply $foo_got, undef; is $foo_ret, 0; $foo_got = undef; eval q{$foo_ret = foo(@b, @c, @a, @c);}; is $@, ""; is_deeply $foo_got, undef; is $foo_ret, 9; sub MODIFY_CODE_ATTRIBUTES { cv_set_call_checker_lists($_[1]); () } BEGIN { *foo2 = sub($$) :Attr { $foo_got = [ @_ ]; return "z"; }; } $foo_got = undef; eval q{$foo_ret = foo2(@b, @c);}; is $@, ""; is_deeply $foo_got, [ qw(a b), qw(a b c) ]; is $foo_ret, "z"; cv_set_call_checker_lists(\&foo); undef &foo; $foo_got = undef; eval 'sub foo($@) { $foo_got = [ @_ ]; return "z"; } $foo_ret = foo(@b, @c);'; is $@, ""; is_deeply $foo_got, [ 2, qw(a b c) ], 'undef clears call checkers'; is $foo_ret, "z"; my %got; sub g { my $name = shift; my $sub = sub ($\@) { $got{$name} = [ @_ ]; return $name; }; cv_set_call_checker_scalars($sub); return $sub; } BEGIN { *whack = g("whack"); *glurp = g("glurp"); } %got = (); my $whack_ret = whack(@b, @c); is $@, ""; is_deeply $got{whack}, [ 2, 3 ]; is $whack_ret, "whack"; my $glurp_ret = glurp(@b, @c); is $@, ""; is_deeply $got{glurp}, [ 2, 3 ]; is $glurp_ret, "glurp"; 1;