Linux webserver 6.8.0-49-generic #49~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Wed Nov 6 17:42:15 UTC 2 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.1.1 & Your IP : 18.217.140.32
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
lib /
x86_64-linux-gnu /
perl-base /
Delete
Unzip
Name
Size
Permission
Date
Action
Carp
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Exporter
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
File
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Getopt
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Hash
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
IO
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
IPC
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
List
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Scalar
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Text
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
Tie
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
auto
[ DIR ]
drwxr-xr-x
2022-02-06 11:02
unicore
[ DIR ]
drwxr-xr-x
2022-02-06 11:02
warnings
[ DIR ]
drwxr-xr-x
2025-04-15 06:10
AutoLoader.pm
5.36
KB
-rw-r--r--
2025-04-08 13:21
Carp.pm
24.8
KB
-rw-r--r--
2025-04-08 13:21
Config.pm
3.14
KB
-rw-r--r--
2025-04-08 13:21
Config_git.pl
409
B
-rw-r--r--
2025-04-08 13:21
Config_heavy.pl
54.01
KB
-rw-r--r--
2025-04-08 13:21
Cwd.pm
17.24
KB
-rw-r--r--
2025-04-08 13:21
DynaLoader.pm
10.25
KB
-rw-r--r--
2025-04-08 13:21
Errno.pm
4.82
KB
-rw-r--r--
2025-04-08 13:21
Exporter.pm
2.28
KB
-rw-r--r--
2025-04-08 13:21
Fcntl.pm
2.11
KB
-rw-r--r--
2025-04-08 13:21
FileHandle.pm
2.06
KB
-rw-r--r--
2025-04-08 13:21
IO.pm
469
B
-rw-r--r--
2025-04-08 13:21
POSIX.pm
19.91
KB
-rw-r--r--
2025-04-08 13:21
SelectSaver.pm
344
B
-rw-r--r--
2025-04-08 13:21
Socket.pm
13.5
KB
-rw-r--r--
2025-04-08 13:21
Symbol.pm
2.15
KB
-rw-r--r--
2025-04-08 13:21
XSLoader.pm
3.87
KB
-rw-r--r--
2025-04-08 13:21
attributes.pm
3
KB
-rw-r--r--
2025-04-08 13:21
base.pm
8.7
KB
-rw-r--r--
2025-04-08 13:21
bytes.pm
489
B
-rw-r--r--
2025-04-08 13:21
bytes_heavy.pl
758
B
-rw-r--r--
2025-04-08 13:21
constant.pm
5.6
KB
-rw-r--r--
2025-04-08 13:21
feature.pm
5.54
KB
-rw-r--r--
2025-04-08 13:21
fields.pm
4.89
KB
-rw-r--r--
2025-04-08 13:21
integer.pm
172
B
-rw-r--r--
2025-04-08 13:21
lib.pm
2.23
KB
-rw-r--r--
2025-04-08 13:21
locale.pm
3.37
KB
-rw-r--r--
2025-04-08 13:21
overload.pm
4.38
KB
-rw-r--r--
2025-04-08 13:21
overloading.pm
964
B
-rw-r--r--
2025-04-08 13:21
parent.pm
460
B
-rw-r--r--
2025-04-08 13:21
re.pm
9.48
KB
-rw-r--r--
2025-04-08 13:21
strict.pm
1.57
KB
-rw-r--r--
2025-04-08 13:21
utf8.pm
341
B
-rw-r--r--
2025-04-08 13:21
vars.pm
1.12
KB
-rw-r--r--
2025-04-08 13:21
warnings.pm
26.91
KB
-rw-r--r--
2025-04-08 13:21
Save
Rename
# -*- buffer-read-only: t -*- # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/feature.pl. # Any changes made here will be lost! package feature; our $VERSION = '1.64'; our %feature = ( fc => 'feature_fc', isa => 'feature_isa', say => 'feature_say', try => 'feature_try', state => 'feature_state', switch => 'feature_switch', bitwise => 'feature_bitwise', indirect => 'feature_indirect', evalbytes => 'feature_evalbytes', signatures => 'feature_signatures', current_sub => 'feature___SUB__', refaliasing => 'feature_refaliasing', postderef_qq => 'feature_postderef_qq', unicode_eval => 'feature_unieval', declared_refs => 'feature_myref', unicode_strings => 'feature_unicode', multidimensional => 'feature_multidimensional', bareword_filehandles => 'feature_bareword_filehandles', ); our %feature_bundle = ( "5.10" => [qw(bareword_filehandles indirect multidimensional say state switch)], "5.11" => [qw(bareword_filehandles indirect multidimensional say state switch unicode_strings)], "5.15" => [qw(bareword_filehandles current_sub evalbytes fc indirect multidimensional say state switch unicode_eval unicode_strings)], "5.23" => [qw(bareword_filehandles current_sub evalbytes fc indirect multidimensional postderef_qq say state switch unicode_eval unicode_strings)], "5.27" => [qw(bareword_filehandles bitwise current_sub evalbytes fc indirect multidimensional postderef_qq say state switch unicode_eval unicode_strings)], "all" => [qw(bareword_filehandles bitwise current_sub declared_refs evalbytes fc indirect isa multidimensional postderef_qq refaliasing say signatures state switch try unicode_eval unicode_strings)], "default" => [qw(bareword_filehandles indirect multidimensional)], ); $feature_bundle{"5.12"} = $feature_bundle{"5.11"}; $feature_bundle{"5.13"} = $feature_bundle{"5.11"}; $feature_bundle{"5.14"} = $feature_bundle{"5.11"}; $feature_bundle{"5.16"} = $feature_bundle{"5.15"}; $feature_bundle{"5.17"} = $feature_bundle{"5.15"}; $feature_bundle{"5.18"} = $feature_bundle{"5.15"}; $feature_bundle{"5.19"} = $feature_bundle{"5.15"}; $feature_bundle{"5.20"} = $feature_bundle{"5.15"}; $feature_bundle{"5.21"} = $feature_bundle{"5.15"}; $feature_bundle{"5.22"} = $feature_bundle{"5.15"}; $feature_bundle{"5.24"} = $feature_bundle{"5.23"}; $feature_bundle{"5.25"} = $feature_bundle{"5.23"}; $feature_bundle{"5.26"} = $feature_bundle{"5.23"}; $feature_bundle{"5.28"} = $feature_bundle{"5.27"}; $feature_bundle{"5.29"} = $feature_bundle{"5.27"}; $feature_bundle{"5.30"} = $feature_bundle{"5.27"}; $feature_bundle{"5.31"} = $feature_bundle{"5.27"}; $feature_bundle{"5.32"} = $feature_bundle{"5.27"}; $feature_bundle{"5.33"} = $feature_bundle{"5.27"}; $feature_bundle{"5.34"} = $feature_bundle{"5.27"}; $feature_bundle{"5.9.5"} = $feature_bundle{"5.10"}; my %noops = ( postderef => 1, lexical_subs => 1, ); my %removed = ( array_base => 1, ); our $hint_shift = 26; our $hint_mask = 0x3c000000; our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 5.27 ); # This gets set (for now) in $^H as well as in %^H, # for runtime speed of the uc/lc/ucfirst/lcfirst functions. # See HINT_UNI_8_BIT in perl.h. our $hint_uni8bit = 0x00000800; # TODO: # - think about versioned features (use feature switch => 2) sub import { shift; if (!@_) { croak("No features specified"); } __common(1, @_); } sub unimport { shift; # A bare C<no feature> should reset to the default bundle if (!@_) { $^H &= ~($hint_uni8bit|$hint_mask); return; } __common(0, @_); } sub __common { my $import = shift; my $bundle_number = $^H & $hint_mask; my $features = $bundle_number != $hint_mask && $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; if ($features) { # Features are enabled implicitly via bundle hints. # Delete any keys that may be left over from last time. delete @^H{ values(%feature) }; $^H |= $hint_mask; for (@$features) { $^H{$feature{$_}} = 1; $^H |= $hint_uni8bit if $_ eq 'unicode_strings'; } } while (@_) { my $name = shift; if (substr($name, 0, 1) eq ":") { my $v = substr($name, 1); if (!exists $feature_bundle{$v}) { $v =~ s/^([0-9]+)\.([0-9]+).[0-9]+$/$1.$2/; if (!exists $feature_bundle{$v}) { unknown_feature_bundle(substr($name, 1)); } } unshift @_, @{$feature_bundle{$v}}; next; } if (!exists $feature{$name}) { if (exists $noops{$name}) { next; } if (!$import && exists $removed{$name}) { next; } unknown_feature($name); } if ($import) { $^H{$feature{$name}} = 1; $^H |= $hint_uni8bit if $name eq 'unicode_strings'; } else { delete $^H{$feature{$name}}; $^H &= ~ $hint_uni8bit if $name eq 'unicode_strings'; } } } sub unknown_feature { my $feature = shift; croak(sprintf('Feature "%s" is not supported by Perl %vd', $feature, $^V)); } sub unknown_feature_bundle { my $feature = shift; croak(sprintf('Feature bundle "%s" is not supported by Perl %vd', $feature, $^V)); } sub croak { require Carp; Carp::croak(@_); } 1; # ex: set ro: