SM0 She11
Path:
/
/
usr
/
lib64
/
perl5
Full Path (server): /usr/lib64/perl5
Create Fil3
Upl04d Fil3
📁 B
Open
[D]
[R]
📄 B.pm
[E]
[D]
[R]
📁 CORE
Open
[D]
[R]
📄 Config.pm
[E]
[D]
[R]
📄 Config.pod
[E]
[D]
[R]
📄 Config_git.pl
[E]
[D]
[R]
📄 Config_heavy.pl
[E]
[D]
[R]
📁 Devel
Open
[D]
[R]
📁 Digest
Open
[D]
[R]
📄 DynaLoader.pm
[E]
[D]
[R]
📄 Errno.pm
[E]
[D]
[R]
📄 Fcntl.pm
[E]
[D]
[R]
📁 File
Open
[D]
[R]
📁 Filter
Open
[D]
[R]
📄 GDBM_File.pm
[E]
[D]
[R]
📁 Hash
Open
[D]
[R]
📁 I18N
Open
[D]
[R]
📁 IO
Open
[D]
[R]
📄 IO.pm
[E]
[D]
[R]
📁 IPC
Open
[D]
[R]
📁 MIME
Open
[D]
[R]
📁 Math
Open
[D]
[R]
📄 NDBM_File.pm
[E]
[D]
[R]
📄 O.pm
[E]
[D]
[R]
📄 ODBM_File.pm
[E]
[D]
[R]
📄 Opcode.pm
[E]
[D]
[R]
📄 POSIX.pm
[E]
[D]
[R]
📄 POSIX.pod
[E]
[D]
[R]
📁 PerlIO
Open
[D]
[R]
📄 SDBM_File.pm
[E]
[D]
[R]
📁 Sys
Open
[D]
[R]
📁 Text
Open
[D]
[R]
📁 Tie
Open
[D]
[R]
📁 Time
Open
[D]
[R]
📁 Unicode
Open
[D]
[R]
📄 _h2ph_pre.ph
[E]
[D]
[R]
📄 arybase.pm
[E]
[D]
[R]
📁 asm
Open
[D]
[R]
📁 asm-generic
Open
[D]
[R]
📄 attributes.pm
[E]
[D]
[R]
📁 auto
Open
[D]
[R]
📁 bits
Open
[D]
[R]
📄 endian.ph
[E]
[D]
[R]
📄 features.ph
[E]
[D]
[R]
📁 gnu
Open
[D]
[R]
📄 lib.pm
[E]
[D]
[R]
📁 linux
Open
[D]
[R]
📁 machine
Open
[D]
[R]
📄 mro.pm
[E]
[D]
[R]
📄 ops.pm
[E]
[D]
[R]
📄 re.pm
[E]
[D]
[R]
📄 signal.ph
[E]
[D]
[R]
📄 stdarg.ph
[E]
[D]
[R]
📄 stdc-predef.ph
[E]
[D]
[R]
📄 stddef.ph
[E]
[D]
[R]
📁 sys
Open
[D]
[R]
📄 syscall.ph
[E]
[D]
[R]
📄 syslimits.ph
[E]
[D]
[R]
📄 syslog.ph
[E]
[D]
[R]
📄 time.ph
[E]
[D]
[R]
📁 vendor_perl
Open
[D]
[R]
📄 wait.ph
[E]
[D]
[R]
📄 xlocale.ph
[E]
[D]
[R]
Editing: endian.ph
require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ENDIAN_H)) { eval 'sub _ENDIAN_H () {1;}' unless defined(&_ENDIAN_H); require 'features.ph'; eval 'sub __LITTLE_ENDIAN () {1234;}' unless defined(&__LITTLE_ENDIAN); eval 'sub __BIG_ENDIAN () {4321;}' unless defined(&__BIG_ENDIAN); eval 'sub __PDP_ENDIAN () {3412;}' unless defined(&__PDP_ENDIAN); require 'bits/endian.ph'; unless(defined(&__FLOAT_WORD_ORDER)) { eval 'sub __FLOAT_WORD_ORDER () { &__BYTE_ORDER;}' unless defined(&__FLOAT_WORD_ORDER); } if(defined(&__USE_BSD)) { eval 'sub LITTLE_ENDIAN () { &__LITTLE_ENDIAN;}' unless defined(&LITTLE_ENDIAN); eval 'sub BIG_ENDIAN () { &__BIG_ENDIAN;}' unless defined(&BIG_ENDIAN); eval 'sub PDP_ENDIAN () { &__PDP_ENDIAN;}' unless defined(&PDP_ENDIAN); eval 'sub BYTE_ORDER () { &__BYTE_ORDER;}' unless defined(&BYTE_ORDER); } if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) { eval 'sub __LONG_LONG_PAIR { my($HI, $LO) = @_; eval q($LO, $HI); }' unless defined(&__LONG_LONG_PAIR); } elsif((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) { eval 'sub __LONG_LONG_PAIR { my($HI, $LO) = @_; eval q($HI, $LO); }' unless defined(&__LONG_LONG_PAIR); } if(defined (&__USE_BSD) && !defined (&__ASSEMBLER__)) { require 'bits/byteswap.ph'; if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) { eval 'sub htobe16 { my($x) = @_; eval q( &__bswap_16 ($x)); }' unless defined(&htobe16); eval 'sub htole16 { my($x) = @_; eval q(($x)); }' unless defined(&htole16); eval 'sub be16toh { my($x) = @_; eval q( &__bswap_16 ($x)); }' unless defined(&be16toh); eval 'sub le16toh { my($x) = @_; eval q(($x)); }' unless defined(&le16toh); eval 'sub htobe32 { my($x) = @_; eval q( &__bswap_32 ($x)); }' unless defined(&htobe32); eval 'sub htole32 { my($x) = @_; eval q(($x)); }' unless defined(&htole32); eval 'sub be32toh { my($x) = @_; eval q( &__bswap_32 ($x)); }' unless defined(&be32toh); eval 'sub le32toh { my($x) = @_; eval q(($x)); }' unless defined(&le32toh); if((defined(&__GLIBC_HAVE_LONG_LONG) ? &__GLIBC_HAVE_LONG_LONG : undef)) { eval 'sub htobe64 { my($x) = @_; eval q( &__bswap_64 ($x)); }' unless defined(&htobe64); eval 'sub htole64 { my($x) = @_; eval q(($x)); }' unless defined(&htole64); eval 'sub be64toh { my($x) = @_; eval q( &__bswap_64 ($x)); }' unless defined(&be64toh); eval 'sub le64toh { my($x) = @_; eval q(($x)); }' unless defined(&le64toh); } } else { eval 'sub htobe16 { my($x) = @_; eval q(($x)); }' unless defined(&htobe16); eval 'sub htole16 { my($x) = @_; eval q( &__bswap_16 ($x)); }' unless defined(&htole16); eval 'sub be16toh { my($x) = @_; eval q(($x)); }' unless defined(&be16toh); eval 'sub le16toh { my($x) = @_; eval q( &__bswap_16 ($x)); }' unless defined(&le16toh); eval 'sub htobe32 { my($x) = @_; eval q(($x)); }' unless defined(&htobe32); eval 'sub htole32 { my($x) = @_; eval q( &__bswap_32 ($x)); }' unless defined(&htole32); eval 'sub be32toh { my($x) = @_; eval q(($x)); }' unless defined(&be32toh); eval 'sub le32toh { my($x) = @_; eval q( &__bswap_32 ($x)); }' unless defined(&le32toh); if((defined(&__GLIBC_HAVE_LONG_LONG) ? &__GLIBC_HAVE_LONG_LONG : undef)) { eval 'sub htobe64 { my($x) = @_; eval q(($x)); }' unless defined(&htobe64); eval 'sub htole64 { my($x) = @_; eval q( &__bswap_64 ($x)); }' unless defined(&htole64); eval 'sub be64toh { my($x) = @_; eval q(($x)); }' unless defined(&be64toh); eval 'sub le64toh { my($x) = @_; eval q( &__bswap_64 ($x)); }' unless defined(&le64toh); } } } } 1;
Save