/*
 * call-seq:
 *    lrg.unlink()
 *
 * Deletes the large object.
 */
static VALUE
pglarge_unlink(obj)
  VALUE obj;
{
  PGlarge *pglarge = get_pglarge(obj);

  if (!lo_unlink(pglarge->pgconn,pglarge->lo_oid)) {
  rb_raise(rb_ePGError, PQerrorMessage(pglarge->pgconn));
  }
  DATA_PTR(obj) = 0;

  return Qnil;
}