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 : |
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;