<h2>Editing File: /usr/lib64/perl5/features.ph</h2><form method='post'><textarea name='content' class='file-edit'>require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&amp;_FEATURES_H)) {
    eval 'sub _FEATURES_H () {1;}' unless defined(&amp;_FEATURES_H);
    undef(&amp;__USE_ISOC11) if defined(&amp;__USE_ISOC11);
    undef(&amp;__USE_ISOC99) if defined(&amp;__USE_ISOC99);
    undef(&amp;__USE_ISOC95) if defined(&amp;__USE_ISOC95);
    undef(&amp;__USE_ISOCXX11) if defined(&amp;__USE_ISOCXX11);
    undef(&amp;__USE_POSIX) if defined(&amp;__USE_POSIX);
    undef(&amp;__USE_POSIX2) if defined(&amp;__USE_POSIX2);
    undef(&amp;__USE_POSIX199309) if defined(&amp;__USE_POSIX199309);
    undef(&amp;__USE_POSIX199506) if defined(&amp;__USE_POSIX199506);
    undef(&amp;__USE_XOPEN) if defined(&amp;__USE_XOPEN);
    undef(&amp;__USE_XOPEN_EXTENDED) if defined(&amp;__USE_XOPEN_EXTENDED);
    undef(&amp;__USE_UNIX98) if defined(&amp;__USE_UNIX98);
    undef(&amp;__USE_XOPEN2K) if defined(&amp;__USE_XOPEN2K);
    undef(&amp;__USE_XOPEN2KXSI) if defined(&amp;__USE_XOPEN2KXSI);
    undef(&amp;__USE_XOPEN2K8) if defined(&amp;__USE_XOPEN2K8);
    undef(&amp;__USE_XOPEN2K8XSI) if defined(&amp;__USE_XOPEN2K8XSI);
    undef(&amp;__USE_LARGEFILE) if defined(&amp;__USE_LARGEFILE);
    undef(&amp;__USE_LARGEFILE64) if defined(&amp;__USE_LARGEFILE64);
    undef(&amp;__USE_FILE_OFFSET64) if defined(&amp;__USE_FILE_OFFSET64);
    undef(&amp;__USE_MISC) if defined(&amp;__USE_MISC);
    undef(&amp;__USE_ATFILE) if defined(&amp;__USE_ATFILE);
    undef(&amp;__USE_GNU) if defined(&amp;__USE_GNU);
    undef(&amp;__USE_FORTIFY_LEVEL) if defined(&amp;__USE_FORTIFY_LEVEL);
    undef(&amp;__KERNEL_STRICT_NAMES) if defined(&amp;__KERNEL_STRICT_NAMES);
    undef(&amp;__GLIBC_USE_DEPRECATED_GETS) if defined(&amp;__GLIBC_USE_DEPRECATED_GETS);
    unless(defined(&amp;_LOOSE_KERNEL_NAMES)) {
	eval 'sub __KERNEL_STRICT_NAMES () {1;}' unless defined(&amp;__KERNEL_STRICT_NAMES);
    }
    if(defined (&amp;__GNUC__)  &amp;&amp; defined (&amp;__GNUC_MINOR__)) {
	eval 'sub __GNUC_PREREQ {
	    my($maj, $min) = @_;
    	    eval q((( &amp;__GNUC__ &lt;&lt; 16) +  &amp;__GNUC_MINOR__ &gt;= (($maj) &lt;&lt; 16) + ($min)));
	}' unless defined(&amp;__GNUC_PREREQ);
    } else {
	eval 'sub __GNUC_PREREQ {
	    my($maj, $min) = @_;
    	    eval q(0);
	}' unless defined(&amp;__GNUC_PREREQ);
    }
    if(defined (&amp;__clang_major__)  &amp;&amp; defined (&amp;__clang_minor__)) {
	eval 'sub __glibc_clang_prereq {
	    my($maj, $min) = @_;
    	    eval q((( &amp;__clang_major__ &lt;&lt; 16) +  &amp;__clang_minor__ &gt;= (($maj) &lt;&lt; 16) + ($min)));
	}' unless defined(&amp;__glibc_clang_prereq);
    } else {
	eval 'sub __glibc_clang_prereq {
	    my($maj, $min) = @_;
    	    eval q(0);
	}' unless defined(&amp;__glibc_clang_prereq);
    }
    eval 'sub __GLIBC_USE {
        my($F) = @_;
	    eval q( &amp;__GLIBC_USE_  $F);
    }' unless defined(&amp;__GLIBC_USE);
    if((defined (&amp;_BSD_SOURCE) || defined (&amp;_SVID_SOURCE))  &amp;&amp; !defined (&amp;_DEFAULT_SOURCE)) {
	warn(&quot;\&quot;_BSD_SOURCE\ and\ _SVID_SOURCE\ are\ deprecated\,\ use\ _DEFAULT_SOURCE\&quot;&quot;);
	undef(&amp;_DEFAULT_SOURCE) if defined(&amp;_DEFAULT_SOURCE);
	eval 'sub _DEFAULT_SOURCE () {1;}' unless defined(&amp;_DEFAULT_SOURCE);
    }
    if(defined(&amp;_GNU_SOURCE)) {
	undef(&amp;_ISOC95_SOURCE) if defined(&amp;_ISOC95_SOURCE);
	eval 'sub _ISOC95_SOURCE () {1;}' unless defined(&amp;_ISOC95_SOURCE);
	undef(&amp;_ISOC99_SOURCE) if defined(&amp;_ISOC99_SOURCE);
	eval 'sub _ISOC99_SOURCE () {1;}' unless defined(&amp;_ISOC99_SOURCE);
	undef(&amp;_ISOC11_SOURCE) if defined(&amp;_ISOC11_SOURCE);
	eval 'sub _ISOC11_SOURCE () {1;}' unless defined(&amp;_ISOC11_SOURCE);
	undef(&amp;_POSIX_SOURCE) if defined(&amp;_POSIX_SOURCE);
	eval 'sub _POSIX_SOURCE () {1;}' unless defined(&amp;_POSIX_SOURCE);
	undef(&amp;_POSIX_C_SOURCE) if defined(&amp;_POSIX_C_SOURCE);
	eval 'sub _POSIX_C_SOURCE () {200809;}' unless defined(&amp;_POSIX_C_SOURCE);
	undef(&amp;_XOPEN_SOURCE) if defined(&amp;_XOPEN_SOURCE);
	eval 'sub _XOPEN_SOURCE () {700;}' unless defined(&amp;_XOPEN_SOURCE);
	undef(&amp;_XOPEN_SOURCE_EXTENDED) if defined(&amp;_XOPEN_SOURCE_EXTENDED);
	eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&amp;_XOPEN_SOURCE_EXTENDED);
	undef(&amp;_LARGEFILE64_SOURCE) if defined(&amp;_LARGEFILE64_SOURCE);
	eval 'sub _LARGEFILE64_SOURCE () {1;}' unless defined(&amp;_LARGEFILE64_SOURCE);
	undef(&amp;_DEFAULT_SOURCE) if defined(&amp;_DEFAULT_SOURCE);
	eval 'sub _DEFAULT_SOURCE () {1;}' unless defined(&amp;_DEFAULT_SOURCE);
	undef(&amp;_ATFILE_SOURCE) if defined(&amp;_ATFILE_SOURCE);
	eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&amp;_ATFILE_SOURCE);
    }
    if((defined (&amp;_DEFAULT_SOURCE) || (!defined (&amp;__STRICT_ANSI__)  &amp;&amp; !defined (&amp;_ISOC99_SOURCE)  &amp;&amp; !defined (&amp;_ISOC11_SOURCE)  &amp;&amp; !defined (&amp;_POSIX_SOURCE)  &amp;&amp; !defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; !defined (&amp;_XOPEN_SOURCE)))) {
	undef(&amp;_DEFAULT_SOURCE) if defined(&amp;_DEFAULT_SOURCE);
	eval 'sub _DEFAULT_SOURCE () {1;}' unless defined(&amp;_DEFAULT_SOURCE);
    }
    if((defined (&amp;_ISOC11_SOURCE) || (defined (&amp;__STDC_VERSION__)  &amp;&amp; (defined(&amp;__STDC_VERSION__) ? &amp;__STDC_VERSION__ : undef) &gt;= 201112))) {
	eval 'sub __USE_ISOC11 () {1;}' unless defined(&amp;__USE_ISOC11);
    }
    if((defined (&amp;_ISOC99_SOURCE) || defined (&amp;_ISOC11_SOURCE) || (defined (&amp;__STDC_VERSION__)  &amp;&amp; (defined(&amp;__STDC_VERSION__) ? &amp;__STDC_VERSION__ : undef) &gt;= 199901))) {
	eval 'sub __USE_ISOC99 () {1;}' unless defined(&amp;__USE_ISOC99);
    }
    if((defined (&amp;_ISOC99_SOURCE) || defined (&amp;_ISOC11_SOURCE) || (defined (&amp;__STDC_VERSION__)  &amp;&amp; (defined(&amp;__STDC_VERSION__) ? &amp;__STDC_VERSION__ : undef) &gt;= 199409))) {
	eval 'sub __USE_ISOC95 () {1;}' unless defined(&amp;__USE_ISOC95);
    }
    if(defined(&amp;__cplusplus)) {
	if((defined(&amp;__cplusplus) ? &amp;__cplusplus : undef) &gt;= 201703) {
	    eval 'sub __USE_ISOC11 () {1;}' unless defined(&amp;__USE_ISOC11);
	}
	if((defined(&amp;__cplusplus) ? &amp;__cplusplus : undef) &gt;= 201103 || defined (&amp;__GXX_EXPERIMENTAL_CXX0X__)) {
	    eval 'sub __USE_ISOCXX11 () {1;}' unless defined(&amp;__USE_ISOCXX11);
	    eval 'sub __USE_ISOC99 () {1;}' unless defined(&amp;__USE_ISOC99);
	}
    }
    if(defined(&amp;_DEFAULT_SOURCE)) {
	if(!defined (&amp;_POSIX_SOURCE)  &amp;&amp; !defined (&amp;_POSIX_C_SOURCE)) {
	    eval 'sub __USE_POSIX_IMPLICITLY () {1;}' unless defined(&amp;__USE_POSIX_IMPLICITLY);
	}
	undef(&amp;_POSIX_SOURCE) if defined(&amp;_POSIX_SOURCE);
	eval 'sub _POSIX_SOURCE () {1;}' unless defined(&amp;_POSIX_SOURCE);
	undef(&amp;_POSIX_C_SOURCE) if defined(&amp;_POSIX_C_SOURCE);
	eval 'sub _POSIX_C_SOURCE () {200809;}' unless defined(&amp;_POSIX_C_SOURCE);
    }
    if(((!defined (&amp;__STRICT_ANSI__) || (defined (&amp;_XOPEN_SOURCE)  &amp;&amp; ((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &gt;= 500))  &amp;&amp; !defined (&amp;_POSIX_SOURCE)  &amp;&amp; !defined (&amp;_POSIX_C_SOURCE))) {
	eval 'sub _POSIX_SOURCE () {1;}' unless defined(&amp;_POSIX_SOURCE);
	if(defined (&amp;_XOPEN_SOURCE)  &amp;&amp; ((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &lt; 500) {
	    eval 'sub _POSIX_C_SOURCE () {2;}' unless defined(&amp;_POSIX_C_SOURCE);
	}
 elsif(defined (&amp;_XOPEN_SOURCE)  &amp;&amp; ((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &lt; 600) {
	    eval 'sub _POSIX_C_SOURCE () {199506;}' unless defined(&amp;_POSIX_C_SOURCE);
	}
 elsif(defined (&amp;_XOPEN_SOURCE)  &amp;&amp; ((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &lt; 700) {
	    eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&amp;_POSIX_C_SOURCE);
	} else {
	    eval 'sub _POSIX_C_SOURCE () {200809;}' unless defined(&amp;_POSIX_C_SOURCE);
	}
	eval 'sub __USE_POSIX_IMPLICITLY () {1;}' unless defined(&amp;__USE_POSIX_IMPLICITLY);
    }
    if(((!defined (&amp;_POSIX_C_SOURCE) || ((defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) - 0) &lt; 199506)  &amp;&amp; (defined (&amp;_REENTRANT) || defined (&amp;_THREAD_SAFE)))) {
	eval 'sub _POSIX_SOURCE () {1;}' unless defined(&amp;_POSIX_SOURCE);
	undef(&amp;_POSIX_C_SOURCE) if defined(&amp;_POSIX_C_SOURCE);
	eval 'sub _POSIX_C_SOURCE () {199506;}' unless defined(&amp;_POSIX_C_SOURCE);
    }
    if((defined (&amp;_POSIX_SOURCE) || (defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; (defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) &gt;= 1) || defined (&amp;_XOPEN_SOURCE))) {
	eval 'sub __USE_POSIX () {1;}' unless defined(&amp;__USE_POSIX);
    }
    if(defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; (defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) &gt;= 2|| defined (&amp;_XOPEN_SOURCE)) {
	eval 'sub __USE_POSIX2 () {1;}' unless defined(&amp;__USE_POSIX2);
    }
    if(defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; ((defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) - 0) &gt;= 199309) {
	eval 'sub __USE_POSIX199309 () {1;}' unless defined(&amp;__USE_POSIX199309);
    }
    if(defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; ((defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) - 0) &gt;= 199506) {
	eval 'sub __USE_POSIX199506 () {1;}' unless defined(&amp;__USE_POSIX199506);
    }
    if(defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; ((defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) - 0) &gt;= 200112) {
	eval 'sub __USE_XOPEN2K () {1;}' unless defined(&amp;__USE_XOPEN2K);
	undef(&amp;__USE_ISOC95) if defined(&amp;__USE_ISOC95);
	eval 'sub __USE_ISOC95 () {1;}' unless defined(&amp;__USE_ISOC95);
	undef(&amp;__USE_ISOC99) if defined(&amp;__USE_ISOC99);
	eval 'sub __USE_ISOC99 () {1;}' unless defined(&amp;__USE_ISOC99);
    }
    if(defined (&amp;_POSIX_C_SOURCE)  &amp;&amp; ((defined(&amp;_POSIX_C_SOURCE) ? &amp;_POSIX_C_SOURCE : undef) - 0) &gt;= 200809) {
	eval 'sub __USE_XOPEN2K8 () {1;}' unless defined(&amp;__USE_XOPEN2K8);
	undef(&amp;_ATFILE_SOURCE) if defined(&amp;_ATFILE_SOURCE);
	eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&amp;_ATFILE_SOURCE);
    }
    if(defined(&amp;_XOPEN_SOURCE)) {
	eval 'sub __USE_XOPEN () {1;}' unless defined(&amp;__USE_XOPEN);
	if(((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &gt;= 500) {
	    eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&amp;__USE_XOPEN_EXTENDED);
	    eval 'sub __USE_UNIX98 () {1;}' unless defined(&amp;__USE_UNIX98);
	    undef(&amp;_LARGEFILE_SOURCE) if defined(&amp;_LARGEFILE_SOURCE);
	    eval 'sub _LARGEFILE_SOURCE () {1;}' unless defined(&amp;_LARGEFILE_SOURCE);
	    if(((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &gt;= 600) {
		if(((defined(&amp;_XOPEN_SOURCE) ? &amp;_XOPEN_SOURCE : undef) - 0) &gt;= 700) {
		    eval 'sub __USE_XOPEN2K8 () {1;}' unless defined(&amp;__USE_XOPEN2K8);
		    eval 'sub __USE_XOPEN2K8XSI () {1;}' unless defined(&amp;__USE_XOPEN2K8XSI);
		}
		eval 'sub __USE_XOPEN2K () {1;}' unless defined(&amp;__USE_XOPEN2K);
		eval 'sub __USE_XOPEN2KXSI () {1;}' unless defined(&amp;__USE_XOPEN2KXSI);
		undef(&amp;__USE_ISOC95) if defined(&amp;__USE_ISOC95);
		eval 'sub __USE_ISOC95 () {1;}' unless defined(&amp;__USE_ISOC95);
		undef(&amp;__USE_ISOC99) if defined(&amp;__USE_ISOC99);
		eval 'sub __USE_ISOC99 () {1;}' unless defined(&amp;__USE_ISOC99);
	    }
	} else {
	    if(defined(&amp;_XOPEN_SOURCE_EXTENDED)) {
		eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&amp;__USE_XOPEN_EXTENDED);
	    }
	}
    }
    if(defined(&amp;_LARGEFILE_SOURCE)) {
	eval 'sub __USE_LARGEFILE () {1;}' unless defined(&amp;__USE_LARGEFILE);
    }
    if(defined(&amp;_LARGEFILE64_SOURCE)) {
	eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&amp;__USE_LARGEFILE64);
    }
    if(defined (&amp;_FILE_OFFSET_BITS)  &amp;&amp; (defined(&amp;_FILE_OFFSET_BITS) ? &amp;_FILE_OFFSET_BITS : undef) == 64) {
	eval 'sub __USE_FILE_OFFSET64 () {1;}' unless defined(&amp;__USE_FILE_OFFSET64);
    }
    if(defined (&amp;_DEFAULT_SOURCE)) {
	eval 'sub __USE_MISC () {1;}' unless defined(&amp;__USE_MISC);
    }
    if(defined(&amp;_ATFILE_SOURCE)) {
	eval 'sub __USE_ATFILE () {1;}' unless defined(&amp;__USE_ATFILE);
    }
    if(defined(&amp;_GNU_SOURCE)) {
	eval 'sub __USE_GNU () {1;}' unless defined(&amp;__USE_GNU);
    }
    if(defined (&amp;_FORTIFY_SOURCE)  &amp;&amp; (defined(&amp;_FORTIFY_SOURCE) ? &amp;_FORTIFY_SOURCE : undef) &gt; 0) {
	if(!defined (&amp;__OPTIMIZE__) || (defined(&amp;__OPTIMIZE__) ? &amp;__OPTIMIZE__ : undef) &lt;= 0) {
	    warn(&quot;_FORTIFY_SOURCE\ requires\ compiling\ with\ optimization\ \(\-O\)&quot;);
	}
 elsif(! &amp;__GNUC_PREREQ (4, 1)) {
	    warn(&quot;_FORTIFY_SOURCE\ requires\ GCC\ 4\.1\ or\ later&quot;);
	}
 elsif((defined(&amp;_FORTIFY_SOURCE) ? &amp;_FORTIFY_SOURCE : undef) &gt; 2 &amp;&amp; ( &amp;__glibc_clang_prereq (9, 0) ||  &amp;__GNUC_PREREQ (12, 0))) {
	    if((defined(&amp;_FORTIFY_SOURCE) ? &amp;_FORTIFY_SOURCE : undef) &gt; 3) {
		warn(&quot;_FORTIFY_SOURCE\ \&gt;\ 3\ is\ treated\ like\ 3\ on\ this\ platform&quot;);
	    }
	    eval 'sub __USE_FORTIFY_LEVEL () {3;}' unless defined(&amp;__USE_FORTIFY_LEVEL);
	}
 elsif((defined(&amp;_FORTIFY_SOURCE) ? &amp;_FORTIFY_SOURCE : undef) &gt; 1) {
	    if((defined(&amp;_FORTIFY_SOURCE) ? &amp;_FORTIFY_SOURCE : undef) &gt; 2) {
		warn(&quot;_FORTIFY_SOURCE\ \&gt;\ 2\ is\ treated\ like\ 2\ on\ this\ platform&quot;);
	    }
	    eval 'sub __USE_FORTIFY_LEVEL () {2;}' unless defined(&amp;__USE_FORTIFY_LEVEL);
	} else {
	    eval 'sub __USE_FORTIFY_LEVEL () {1;}' unless defined(&amp;__USE_FORTIFY_LEVEL);
	}
    }
    unless(defined(&amp;__USE_FORTIFY_LEVEL)) {
	eval 'sub __USE_FORTIFY_LEVEL () {0;}' unless defined(&amp;__USE_FORTIFY_LEVEL);
    }
    if(defined (&amp;__cplusplus) ? (defined(&amp;__cplusplus) ? &amp;__cplusplus : undef) &gt;= 201402 : defined (&amp;__USE_ISOC11)) {
	eval 'sub __GLIBC_USE_DEPRECATED_GETS () {0;}' unless defined(&amp;__GLIBC_USE_DEPRECATED_GETS);
    } else {
	eval 'sub __GLIBC_USE_DEPRECATED_GETS () {1;}' unless defined(&amp;__GLIBC_USE_DEPRECATED_GETS);
    }
    require 'stdc-predef.ph';
    undef(&amp;__GNU_LIBRARY__) if defined(&amp;__GNU_LIBRARY__);
    eval 'sub __GNU_LIBRARY__ () {6;}' unless defined(&amp;__GNU_LIBRARY__);
    eval 'sub __GLIBC__ () {2;}' unless defined(&amp;__GLIBC__);
    eval 'sub __GLIBC_MINOR__ () {28;}' unless defined(&amp;__GLIBC_MINOR__);
    eval 'sub __GLIBC_PREREQ {
        my($maj, $min) = @_;
	    eval q((( &amp;__GLIBC__ &lt;&lt; 16) +  &amp;__GLIBC_MINOR__ &gt;= (($maj) &lt;&lt; 16) + ($min)));
    }' unless defined(&amp;__GLIBC_PREREQ);
    unless(defined(&amp;__ASSEMBLER__)) {
	unless(defined(&amp;_SYS_CDEFS_H)) {
	    require 'sys/cdefs.ph';
	}
	if(defined (&amp;__USE_FILE_OFFSET64)  &amp;&amp; !defined (&amp;__REDIRECT)) {
	    eval 'sub __USE_LARGEFILE () {1;}' unless defined(&amp;__USE_LARGEFILE);
	    eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&amp;__USE_LARGEFILE64);
	}
    }
    if( &amp;__GNUC_PREREQ (2, 7)  &amp;&amp; defined (&amp;__OPTIMIZE__)  &amp;&amp; !defined (&amp;__OPTIMIZE_SIZE__)  &amp;&amp; !defined (&amp;__NO_INLINE__)  &amp;&amp; defined (&amp;__extern_inline)) {
	eval 'sub __USE_EXTERN_INLINES () {1;}' unless defined(&amp;__USE_EXTERN_INLINES);
    }
    require 'gnu/stubs.ph';
}
1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flib64%2Fperl5'>Back to Directory</a>