void
setbuf(handle, ...)
	OutputStream	handle
    CODE:
	if (handle)
#ifdef PERLIO_IS_STDIO
        {
	    char *buf = items == 2 && SvPOK(ST(1)) ?
	      sv_grow(ST(1), BUFSIZ) : 0;
	    setbuf(handle, buf);
	}
#else
	{    /* not_here("IO::Handle::setbuf"); */
        
        PerlIOBuf * const b = PerlIOSelf( handle, PerlIOBuf);
        PERL_UNUSED_CONTEXT;
        if(items == 2 && SvPOK(ST(1)) )
        {
            b->bufsiz = SvLEN(ST(1));
            Newxz(b->buf, b->bufsiz , STDCHAR);
        }
    }
#endif