ok

Mini Shell

Direktori : /usr/lib64/perl5/sys/
Upload File :
Current File : //usr/lib64/perl5/sys/sysmacros.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SYSMACROS_H)) {
    eval 'sub _SYS_SYSMACROS_H () {1;}' unless defined(&_SYS_SYSMACROS_H);
    require 'features.ph';
    if(defined(&__GLIBC_HAVE_LONG_LONG)) {
	if(defined (&__GNUC__)  && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2 && defined (&__USE_EXTERN_INLINES)) {
	}
	eval 'sub major {
	    my($dev) = @_;
    	    eval q( &gnu_dev_major ($dev));
	}' unless defined(&major);
	eval 'sub minor {
	    my($dev) = @_;
    	    eval q( &gnu_dev_minor ($dev));
	}' unless defined(&minor);
	eval 'sub makedev {
	    my($maj, $min) = @_;
    	    eval q( &gnu_dev_makedev ($maj, $min));
	}' unless defined(&makedev);
    }
}
1;

Zerion Mini Shell 1.0