Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/mcheck.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_MCHECK_H)) {
    eval 'sub _MCHECK_H () {1;}' unless defined(&_MCHECK_H);
    require 'features.ph';
    eval("sub MCHECK_DISABLED () { -1; }") unless defined(&MCHECK_DISABLED);
    eval("sub MCHECK_OK () { 0; }") unless defined(&MCHECK_OK);
    eval("sub MCHECK_FREE () { 1; }") unless defined(&MCHECK_FREE);
    eval("sub MCHECK_HEAD () { 2; }") unless defined(&MCHECK_HEAD);
    eval("sub MCHECK_TAIL () { 3; }") unless defined(&MCHECK_TAIL);
}
1;