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 /
run /
Delete
Unzip
Name
Size
Permission
Date
Action
flib
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
cloexec.t
5.73
KB
-r--r--r--
2014-12-27 11:49
dtrace.pl
3
B
-r--r--r--
2014-12-27 11:49
dtrace.t
4.86
KB
-r--r--r--
2014-12-27 11:49
exit.t
5.98
KB
-r--r--r--
2014-12-27 11:49
fresh_perl.t
16.34
KB
-r--r--r--
2014-12-27 11:49
locale.t
9.78
KB
-r--r--r--
2014-12-27 11:49
mad.t
984
B
-r--r--r--
2014-12-27 11:49
noswitch.t
250
B
-r--r--r--
2014-12-27 11:49
runenv.t
9.15
KB
-r--r--r--
2014-12-27 11:49
script.t
578
B
-r--r--r--
2014-12-27 11:49
switch0.t
154
B
-r--r--r--
2014-12-27 11:49
switchC.t
3.4
KB
-r--r--r--
2014-12-27 11:49
switchF.t
223
B
-r--r--r--
2014-12-27 11:49
switchF1.t
915
B
-r--r--r--
2014-12-27 11:49
switchF2.t
499
B
-r--r--r--
2014-12-27 11:49
switchI.t
849
B
-r--r--r--
2014-12-27 11:49
switchM.t
1.03
KB
-r--r--r--
2014-12-27 11:49
switcha.t
218
B
-r--r--r--
2014-12-27 11:49
switchd-78586.t
644
B
-r--r--r--
2014-12-27 11:49
switchd.t
6.93
KB
-r--r--r--
2014-12-27 11:49
switches.t
11.83
KB
-r--r--r--
2014-12-27 11:49
switchn.t
246
B
-r--r--r--
2014-12-27 11:49
switchp.t
314
B
-r--r--r--
2014-12-27 11:49
switcht.t
1.61
KB
-r--r--r--
2014-12-27 11:49
switchx.aux
396
B
-r--r--r--
2014-12-27 11:49
switchx.t
1.04
KB
-r--r--r--
2014-12-27 11:49
switchx2.aux
503
B
-r--r--r--
2014-12-27 11:49
switchx3.aux
50
B
-r--r--r--
2014-12-27 11:49
Save
Rename
#!perl -Ilib -d:switchd_empty BEGIN { $^P = 0x122; chdir 't'; @INC = ('../lib', 'lib'); require './test.pl'; } use strict; use warnings; no warnings 'redefine'; plan 2; our @lines; sub DB::DB { my ($p, $f, $l) = caller; return unless $f =~ /^\(eval \d+\)\[.*78586\.t:\d+\]/; push @lines, $l; } sub trace_lines { my ($src) = @_; local @lines; eval $src; die if $@; return join " ", @lines; } is trace_lines(<<'END'), "1 3 3 5"; ++$b; { ++$b; } ++$b; END is trace_lines(<<'END'), "1 2 3 3 5"; ++$b; for (my $a=1; $a <= 2; ++$a) { ++$b; } ++$b; END