/*
 * 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;
}