| … | |
… | |
| 225 | int count; |
225 | int count; |
| 226 | SV *dbh = ST(0); |
226 | SV *dbh = ST(0); |
| 227 | SV *sth; |
227 | SV *sth; |
| 228 | SV *sql; |
228 | SV *sql; |
| 229 | SV *execute; |
229 | SV *execute; |
| 230 | STRLEN dc; |
230 | STRLEN dc, dd; /* dummy */ |
| 231 | |
231 | |
| 232 | /* save our arguments against destruction through function calls */ |
232 | /* save our arguments against destruction through function calls */ |
| 233 | SP += items; |
233 | SP += items; |
| 234 | |
234 | |
| 235 | /* first check wether we should use an explicit db handle */ |
235 | /* first check wether we should use an explicit db handle */ |
| … | |
… | |
| 284 | SPAGAIN; |
284 | SPAGAIN; |
| 285 | |
285 | |
| 286 | if (count != 1) |
286 | if (count != 1) |
| 287 | croak ("sql_exec: unable to prepare() statement '%s': %s", |
287 | croak ("sql_exec: unable to prepare() statement '%s': %s", |
| 288 | SvPV (sql, dc), |
288 | SvPV (sql, dc), |
| 289 | SvPV (get_sv ("DBI::errstr", TRUE), dc)); |
289 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
| 290 | |
290 | |
| 291 | sth = POPs; |
291 | sth = POPs; |
| 292 | |
292 | |
| 293 | lru_store (dbh, sql, sth); |
293 | lru_store (dbh, sql, sth); |
| 294 | } |
294 | } |
