view release on metacpan or  search on metacpan

lib/PerlIO/Layers.xs  view on Meta::CPAN

	RETVAL = newRV_noinc((SV*)ret);
	OUTPUT:
		RETVAL

IV
get_buffer_sizes(handle);
	PerlIO* handle;
	PREINIT:
		PerlIO* current;
		int counter = 0;
	PPCODE:
		for (current = handle; *current; current = PerlIONext(current)) {
			PerlIOBuf* buffer;
			if (!(PerlIOBase(current)->tab->kind & PERLIO_K_BUFFERED))
				continue;
			buffer = PerlIOSelf(current, PerlIOBuf);
			if (!buffer->bufsiz && !buffer->buf)
				PerlIO_get_base(current);
			mXPUSHu(buffer->bufsiz);
			counter++;
		}