require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_REFUSE_PERFUSE_WRAPPER_H)) {
    eval 'sub _REFUSE_PERFUSE_WRAPPER_H () {1;}' unless defined(&_REFUSE_PERFUSE_WRAPPER_H);
    require 'sys/cdefs.ph';
    require 'sys/types.ph';
    unless(defined(&LIBPERFUSE)) {
	eval 'sub mount {
	    my($source, $mnt, $type, $flags, $optbuf) = @_;
    	    eval q( &perfuse_mount($source, $mnt, $type, $flags, $optbuf));
	}' unless defined(&mount);
	eval 'sub open {
	    my($path, $flags) = @_;
    	    eval q( &perfuse_open($path, $flags, 0));
	}' unless defined(&open);
    }
}
1;
