view release on metacpan or  search on metacpan

Illustra.xs  view on Meta::CPAN

  D_imp_dbh(dbh);
CODE:
  /* Open large object */
  if((lodesc=mi_large_object_open(imp_dbh->conn,lohandle,MI_LO_RDONLY))
  ==MI_ERROR){
    do_error(dbh,0,"Error opening large object");
    XSRETURN_UNDEF;
  }

  /* Stat large object to get size */
  if((st=mi_large_object_stat(imp_dbh->conn,lodesc))==NULL){
    do_error(dbh,0,"Error stat\'ing large object");
    mi_large_object_close(imp_dbh->conn,lodesc);
    XSRETURN_UNDEF;
  }
  losize=st->mist_size;
  mi_free((char*)st);

  /* Check we're not being asked for data past the end */
  if(offset>losize){
    XSRETURN_UNDEF;