… | |
… | |
311 | SPAGAIN; |
311 | SPAGAIN; |
312 | |
312 | |
313 | if (count != 1) |
313 | if (count != 1) |
314 | croak ("sql_exec: execute() didn't return any value ('%s'): %s", |
314 | croak ("sql_exec: execute() didn't return any value ('%s'): %s", |
315 | SvPV (sql, dc), |
315 | SvPV (sql, dc), |
316 | SvPV (get_sv ("DBI::errstr", TRUE), dc)); |
316 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
317 | |
317 | |
318 | execute = POPs; |
318 | execute = POPs; |
319 | |
319 | |
320 | if (!SvTRUE (execute)) |
320 | if (!SvTRUE (execute)) |
321 | croak ("sql_exec: unable to execute statement '%s' (%s)", |
321 | croak ("sql_exec: unable to execute statement '%s' (%s)", |
322 | SvPV (sql, dc), |
322 | SvPV (sql, dc), |
323 | SvPV (get_sv ("DBI::errstr", TRUE), dc)); |
323 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
324 | |
324 | |
325 | sv_setsv (GvSV(sql_exec), execute); |
325 | sv_setsv (GvSV(sql_exec), execute); |
326 | |
326 | |
327 | if (bind_first != bind_last) |
327 | if (bind_first != bind_last) |
328 | { |
328 | { |
… | |
… | |
339 | SPAGAIN; |
339 | SPAGAIN; |
340 | |
340 | |
341 | if (count != 1) |
341 | if (count != 1) |
342 | croak ("sql_exec: bind_columns() didn't return any value ('%s'): %s", |
342 | croak ("sql_exec: bind_columns() didn't return any value ('%s'): %s", |
343 | SvPV (sql, dc), |
343 | SvPV (sql, dc), |
344 | SvPV (get_sv ("DBI::errstr", TRUE), dc)); |
344 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
345 | |
345 | |
346 | if (!SvOK (POPs)) |
346 | if (!SvOK (POPs)) |
347 | croak ("sql_exec: bind_columns() didn't return a true ('%s'): %s", |
347 | croak ("sql_exec: bind_columns() didn't return a true ('%s'): %s", |
348 | SvPV (sql, dc), |
348 | SvPV (sql, dc), |
349 | SvPV (get_sv ("DBI::errstr", TRUE), dc)); |
349 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
350 | } |
350 | } |
351 | |
351 | |
352 | /* free our arguments from the stack */ |
352 | /* free our arguments from the stack */ |
353 | SP -= items; |
353 | SP -= items; |
354 | |
354 | |