OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl
/
5.26.1
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📄
AnyDBM_File.pm
2.56 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
App
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Archive
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Attribute
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
AutoLoader.pm
5.36 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
AutoSplit.pm
19.18 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
B
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Benchmark.pm
30.3 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
CORE.pod
3.11 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
CPAN
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
CPAN.pm
138.12 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Carp
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Carp.pm
19.68 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Class
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Compress
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Config
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
DB.pm
18.48 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
DBM_Filter
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
DBM_Filter.pm
14.05 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Devel
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Digest
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Digest.pm
10.45 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
DirHandle.pm
1.52 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Dumpvalue.pm
17.14 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Encode
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
English.pm
4.65 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Env.pm
5.39 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Exporter
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Exporter.pm
2.31 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
ExtUtils
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Fatal.pm
56.91 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
File
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
FileCache.pm
5.44 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
FileHandle.pm
2.06 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Filter
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
FindBin.pm
4.45 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Getopt
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
HTTP
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
I18N
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
IO
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
IPC
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Internals.pod
2.52 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
JSON
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Locale
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Math
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Memoize
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Memoize.pm
35.34 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Module
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
NEXT.pm
18.4 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Net
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Params
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Parse
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📁
Perl
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
PerlIO
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📄
PerlIO.pm
10.21 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Pod
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Safe.pm
24.49 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Search
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
SelectSaver.pm
344 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
SelfLoader.pm
17.28 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Symbol.pm
2.05 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
TAP
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Term
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Test
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Test.pm
29.35 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Test2
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Test2.pm
6.24 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Text
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Thread
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Thread.pm
8.09 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Tie
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Time
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
UNIVERSAL.pm
6.44 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Unicode
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
User
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
XSLoader.pm
3.83 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
_charnames.pm
32.39 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
autodie
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
autodie.pm
12.58 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
autouse.pm
4.14 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
base.pm
8.72 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
bigint.pm
22.85 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
bignum.pm
20.64 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
bigrat.pm
15.78 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
blib.pm
2.04 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
bytes.pm
447 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
bytes_heavy.pl
758 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
charnames.pm
20.38 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
constant.pm
5.6 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
deprecate.pm
3.43 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
diagnostics.pm
18.59 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
dumpvar.pl
15.19 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
encoding
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
experimental.pm
5.66 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
feature.pm
4.39 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
fields.pm
4.9 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
filetest.pm
3.91 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
if.pm
3.26 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
integer.pm
172 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
less.pm
3.13 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
locale.pm
3.34 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
meta_notation.pm
2.07 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
ok.pm
967 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
open.pm
7.83 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
overload
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
overload.pm
4.34 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
overloading.pm
964 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
parent.pm
478 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
perl5db.pl
309.01 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
perlfaq.pm
78 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
pod
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
sigtrap.pm
7.43 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
sort.pm
5.94 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
strict.pm
1.57 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
subs.pm
848 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
unicore
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
utf8.pm
342 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
utf8_heavy.pl
30.87 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
vars.pm
1.12 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
version
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
version.pm
1.67 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
version.pod
9.63 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
vmsish.pm
4.21 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
warnings
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
warnings.pm
21.44 KB
05/23/2023 05:17:19 PM
rw-r--r--
Editing: feature.pm
Close
# -*- 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.47'; our %feature = ( fc => 'feature_fc', say => 'feature_say', state => 'feature_state', switch => 'feature_switch', bitwise => 'feature_bitwise', evalbytes => 'feature_evalbytes', array_base => 'feature_arybase', 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', ); our %feature_bundle = ( "5.10" => [qw(array_base say state switch)], "5.11" => [qw(array_base say state switch unicode_strings)], "5.15" => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)], "5.23" => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], "all" => [qw(array_base bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], "default" => [qw(array_base)], ); $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.9.5"} = $feature_bundle{"5.10"}; my %noops = ( postderef => 1, lexical_subs => 1, ); our $hint_shift = 26; our $hint_mask = 0x1c000000; our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 ); # 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; } 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: