view release on metacpan or  search on metacpan

dbdnet/NET.xs  view on Meta::CPAN

				(char*)"disconnect_all not implemented");
		DBIh_EVENT2(drh, ERROR_event,
				DBIc_ERR(imp_drh), DBIc_ERRSTR(imp_drh));
		XSRETURN(0);
	}
	XST_mIV(0, 1);

void
_ListDBs( drh )
	SV *    drh
	PPCODE:
#define MAXDBS 100
#define FASIZE ( MAXDBS * 19 )
	int sqlcode;
	int ndbs;
	int i;
	char *dbsname[MAXDBS + 1];
	char dbsarea[FASIZE];
	if ( ( sqlcode = sql_getdbs(dbsname, &ndbs) ) != 0
) {
		do_error( sqlcode );

dbdnet/NET.xs  view on Meta::CPAN

/*        ora_error(sth, imp_sth->cda, imp_sth->cda->rc, "oexec error");
		XSRETURN_UNDEF;
	}*/
	DBIc_ACTIVE_on(imp_sth);
	XST_mYES(0);


void
fetchrow(sth)
	SV *	sth
	PPCODE:
	D_imp_sth(sth);
	int i;
	SV *sv;
	imp_sth->done_desc = 0;
	if ( dbd_describe( sth, imp_sth ) != 0 ) {
		if ( dbis->debug >= 2 )
			warn( "Returning from fetchrow\n" );
		XSRETURN(0);
	  }
	/* Check that execute() was executed sucessfuly. This also implies	*/