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