File Manager

X7ROOT File Manager

Current Path: /lib64/perl5

ðŸ“ ..
ðŸ“ B
ðŸ“„ B.pm(30.72 KB)
ðŸ“ CORE
ðŸ“„ Config.pm(3.12 KB)
ðŸ“„ Config.pod(250.68 KB)
ðŸ“„ Config_git.pl(409 B)
ðŸ“„ Config_heavy.pl(55.26 KB)
ðŸ“ Devel
ðŸ“„ DynaLoader.pm(24.63 KB)
ðŸ“„ Errno.pm(6.7 KB)
ðŸ“„ Fcntl.pm(3.95 KB)
ðŸ“ File
ðŸ“„ GDBM_File.pm(1.51 KB)
ðŸ“ Hash
ðŸ“ I18N
ðŸ“ IO
ðŸ“„ IO.pm(1.42 KB)
ðŸ“ IPC
ðŸ“„ NDBM_File.pm(2.44 KB)
ðŸ“„ O.pm(4.11 KB)
ðŸ“„ ODBM_File.pm(2.33 KB)
ðŸ“„ Opcode.pm(15.52 KB)
ðŸ“„ POSIX.pm(19.72 KB)
ðŸ“„ POSIX.pod(71.98 KB)
ðŸ“ PerlIO
ðŸ“„ SDBM_File.pm(3.46 KB)
ðŸ“ Sys
ðŸ“ Tie
ðŸ“ Time
ðŸ“„ _h2ph_pre.ph(28.57 KB)
ðŸ“„ arybase.pm(2.75 KB)
ðŸ“ asm
ðŸ“ asm-generic
ðŸ“„ attributes.pm(16.53 KB)
ðŸ“ auto
ðŸ“ bits
ðŸ“„ endian.ph(4.36 KB)
ðŸ“„ features.ph(13.37 KB)
ðŸ“ gnu
ðŸ“„ lib.pm(5.87 KB)
ðŸ“ linux
ðŸ“ machine
ðŸ“„ mro.pm(9.86 KB)
ðŸ“„ ops.pm(997 B)
ðŸ“„ perllocal.pod(10.7 KB)
ðŸ“„ re.pm(22.16 KB)
ðŸ“„ signal.ph(3.3 KB)
ðŸ“„ stdarg.ph(2.8 KB)
ðŸ“„ stdc-predef.ph(840 B)
ðŸ“„ stddef.ph(12.08 KB)
ðŸ“ sys
ðŸ“„ syscall.ph(86 B)
ðŸ“„ syslimits.ph(452 B)
ðŸ“„ syslog.ph(85 B)
ðŸ“ vendor_perl
ðŸ“„ wait.ph(83 B)

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_MISC)) {
	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_MISC)  && !defined (&__ASSEMBLER__)) {
	require 'bits/byteswap.ph';
	require 'bits/uintn-identity.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( &__uint16_identity ($x));
	    }' unless defined(&htole16);
	    eval 'sub be16toh {
	        my($x) = @_;
    		eval q( &__bswap_16 ($x));
	    }' unless defined(&be16toh);
	    eval 'sub le16toh {
	        my($x) = @_;
    		eval q( &__uint16_identity ($x));
	    }' unless defined(&le16toh);
	    eval 'sub htobe32 {
	        my($x) = @_;
    		eval q( &__bswap_32 ($x));
	    }' unless defined(&htobe32);
	    eval 'sub htole32 {
	        my($x) = @_;
    		eval q( &__uint32_identity ($x));
	    }' unless defined(&htole32);
	    eval 'sub be32toh {
	        my($x) = @_;
    		eval q( &__bswap_32 ($x));
	    }' unless defined(&be32toh);
	    eval 'sub le32toh {
	        my($x) = @_;
    		eval q( &__uint32_identity ($x));
	    }' unless defined(&le32toh);
	    eval 'sub htobe64 {
	        my($x) = @_;
    		eval q( &__bswap_64 ($x));
	    }' unless defined(&htobe64);
	    eval 'sub htole64 {
	        my($x) = @_;
    		eval q( &__uint64_identity ($x));
	    }' unless defined(&htole64);
	    eval 'sub be64toh {
	        my($x) = @_;
    		eval q( &__bswap_64 ($x));
	    }' unless defined(&be64toh);
	    eval 'sub le64toh {
	        my($x) = @_;
    		eval q( &__uint64_identity ($x));
	    }' unless defined(&le64toh);
	} else {
	    eval 'sub htobe16 {
	        my($x) = @_;
    		eval q( &__uint16_identity ($x));
	    }' unless defined(&htobe16);
	    eval 'sub htole16 {
	        my($x) = @_;
    		eval q( &__bswap_16 ($x));
	    }' unless defined(&htole16);
	    eval 'sub be16toh {
	        my($x) = @_;
    		eval q( &__uint16_identity ($x));
	    }' unless defined(&be16toh);
	    eval 'sub le16toh {
	        my($x) = @_;
    		eval q( &__bswap_16 ($x));
	    }' unless defined(&le16toh);
	    eval 'sub htobe32 {
	        my($x) = @_;
    		eval q( &__uint32_identity ($x));
	    }' unless defined(&htobe32);
	    eval 'sub htole32 {
	        my($x) = @_;
    		eval q( &__bswap_32 ($x));
	    }' unless defined(&htole32);
	    eval 'sub be32toh {
	        my($x) = @_;
    		eval q( &__uint32_identity ($x));
	    }' unless defined(&be32toh);
	    eval 'sub le32toh {
	        my($x) = @_;
    		eval q( &__bswap_32 ($x));
	    }' unless defined(&le32toh);
	    eval 'sub htobe64 {
	        my($x) = @_;
    		eval q( &__uint64_identity ($x));
	    }' unless defined(&htobe64);
	    eval 'sub htole64 {
	        my($x) = @_;
    		eval q( &__bswap_64 ($x));
	    }' unless defined(&htole64);
	    eval 'sub be64toh {
	        my($x) = @_;
    		eval q( &__uint64_identity ($x));
	    }' unless defined(&be64toh);
	    eval 'sub le64toh {
	        my($x) = @_;
    		eval q( &__bswap_64 ($x));
	    }' unless defined(&le64toh);
	}
    }
}
1;

X7ROOT File Manager

Editing: endian.ph

Upload File

Create Folder