view release on metacpan or  search on metacpan

PgAsync.xs  view on Meta::CPAN

            warn("savepoint ineffective with AutoCommit enabled");
        ST(0) = (pg_db_savepoint(dbh, imp_dbh, name)!=0) ? &PL_sv_yes : &PL_sv_no;

void
pg_savepoints(dbh)
    SV * dbh
    PREINIT:
        AV *sps;
        SV **sps_a;
        size_t a_len, ndx;
    PPCODE:
        D_imp_dbh(dbh);
        sps = imp_dbh->savepoints;
        a_len = av_count(sps);
        if (!a_len) XSRETURN(0);
        sps_a = AvARRAY(sps);
        EXTEND(SP, a_len);
        ndx = 0;
        do PUSHs(sps_a[ndx]); while (++ndx < a_len);

void