AlaK4X
Linux lhjmq-records 5.15.0-118-generic #128-Ubuntu SMP Fri Jul 5 09:28:59 UTC 2024 x86_64

Your IP : 13.58.203.104

Current Path : /usr/lib/x86_64-linux-gnu/perl/5.34.0/bits/
Upload File :
Current File : //usr/lib/x86_64-linux-gnu/perl/5.34.0/bits/getopt_posix.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_GETOPT_POSIX_H)) {
    eval 'sub _GETOPT_POSIX_H () {1;}' unless defined(&_GETOPT_POSIX_H);
    if(!defined (&_UNISTD_H)  && !defined (&_STDIO_H)) {
	die("Never include getopt_posix.h directly; use unistd.h instead.");
    }
    require 'bits/getopt_core.ph';
    if(defined (&__USE_POSIX2)  && !defined (&__USE_POSIX_IMPLICITLY)  && !defined (&__USE_GNU)  && !defined (&_GETOPT_H)) {
	if(defined(&__REDIRECT)) {
	} else {
	    eval 'sub getopt () { &__posix_getopt;}' unless defined(&getopt);
	}
    }
}
1;