Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.222
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-Devel-GlobalDestruction /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
01_basic.t
2.06
KB
-rw-r--r--
02_thread.t
909
B
-rw-r--r--
03_minusc.t
872
B
-rw-r--r--
04_phases.t
1.13
KB
-rw-r--r--
05_thread_clone.t
1.71
KB
-rw-r--r--
06_load-in-gd.t
770
B
-rw-r--r--
10_pure-perl.t
1.02
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 06_load-in-gd.t
use strict; use warnings; BEGIN { if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) { unshift @INC, sub { die 'no XS' if $_[1] eq 'Devel/GlobalDestruction/XS.pm'; }; } } { package Test::Scope::Guard; sub new { my ($class, $code) = @_; bless [$code], $class; } sub DESTROY { my $self = shift; $self->[0]->() } } use POSIX qw(_exit); $|++; print "1..3\n"; our $alive = Test::Scope::Guard->new(sub { require Devel::GlobalDestruction; my $gd = Devel::GlobalDestruction::in_global_destruction(); print(($gd ? '' : 'not ') . "ok 3 - global destruct detected when loaded during GD\n"); _exit($gd ? 0 : 1); }); print(($alive ? '' : 'not ') . "ok 1 - alive during runtime\n"); END { print(($alive ? '' : 'not ') . "ok 2 - alive during END\n"); }
Close