view release on metacpan or  search on metacpan

lib/Linux/FD/Mem.xs  view on Meta::CPAN

		seals |= get_seal_flag(ST(i));
	ret = fcntl(fd, F_ADD_SEALS, seals);
	if (ret < 0)
		die_sys("Couldn't add seal: %s");

void
get_seals(file_handle)
	SV* file_handle;
	PREINIT:
	int seals, fd, i;
	PPCODE:
	fd = get_fd(file_handle);
	seals = fcntl(fd, F_GET_SEALS, 0);
	for (i = 0; i < sizeof seal_flags / sizeof *seal_flags; ++i) {
		if (seal_flags[i].value & seals)
			mXPUSHp(seal_flags[i].key, seal_flags[i].length);
	}