/*
* call-seq:
* lrg.close()
*
* Closes a large object. Closed when they are garbage-collected.
*/
static VALUE
pglarge_close(obj)
VALUE obj;
{
PGlarge *pglarge = get_pglarge(obj);
if((lo_close(pglarge->pgconn, pglarge->lo_fd)) < 0) {
rb_raise(rb_ePGError, "can't closed large object");
}
DATA_PTR(obj) = 0;
return Qnil;
}