OXIESEC PANEL
- Current Dir:
/
/
usr
/
lib
/
x86_64-linux-gnu
/
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
📁
B
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
B.pm
30.72 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
CORE
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Compress
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📄
Config.pm
3.29 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Config.pod
250.68 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Config_git.pl
409 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
Config_heavy.pl
53.13 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Cwd.pm
18.1 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
DB_File.pm
63.52 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Data
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Devel
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Digest
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
DynaLoader.pm
10.23 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Encode
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
Encode.pm
35.64 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Errno.pm
4.82 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Fcntl.pm
2.11 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
File
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Filter
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📄
GDBM_File.pm
1.51 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Hash
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
I18N
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
IO
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
IO.pm
469 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
IPC
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
List
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
MIME
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Math
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📄
NDBM_File.pm
2.44 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
O.pm
4.11 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
ODBM_File.pm
2.33 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Opcode.pm
15.52 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
POSIX.pm
19.72 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
POSIX.pod
71.98 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
PerlIO
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
SDBM_File.pm
3.46 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Scalar
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
Socket.pm
13.24 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Storable.pm
42.23 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Sub
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Sys
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Tie
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📁
Time
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
Unicode
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
_h2ph_pre.ph
28.63 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
arybase.pm
2.75 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
asm
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📁
asm-generic
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
attributes.pm
3.03 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
auto
-
10/21/2019 03:49:15 PM
rwxr-xr-x
📁
bits
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
encoding.pm
22.45 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
endian.ph
4.36 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
errno.ph
23 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
features.ph
12.64 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
gnu
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
lib.pm
2.23 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
linux
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
mro.pm
9.86 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
ops.pm
997 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
re.pm
8.5 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
signal.ph
3.3 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
stdarg.ph
2.8 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
stdc-predef.ph
921 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
stddef.ph
12.08 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
sys
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
syscall.ph
86 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
sysexits.ph
1.26 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
syslimits.ph
452 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
syslog.ph
85 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
threads
-
05/09/2024 07:13:16 AM
rwxr-xr-x
📄
threads.pm
35.69 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
wait.ph
83 bytes
05/23/2023 05:17:19 PM
rw-r--r--
Editing: attributes.pm
Close
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