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

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&__GNU_STAB__)) {
    eval 'sub __GNU_STAB__ () {1;}' unless defined(&__GNU_STAB__);
    eval 'sub __define_stab {
        my($NAME, $CODE, $STRING) = @_;
	    eval q($NAME=$CODE,);
    }' unless defined(&__define_stab);
    undef(&__define_stab) if defined(&__define_stab);
}
1;