… | |
… | |
452 | SvPV (sql, dc), |
452 | SvPV (sql, dc), |
453 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
453 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
454 | |
454 | |
455 | sth = POPs; |
455 | sth = POPs; |
456 | |
456 | |
|
|
457 | if (!SvROK (sth)) |
|
|
458 | croak ("sql_exec: buggy DBD driver, prepare returned non-reference for '%s': %s", |
|
|
459 | SvPV (sql, dc), |
|
|
460 | SvPV (get_sv ("DBI::errstr", TRUE), dd)); |
|
|
461 | |
457 | mc = mc_find (SvSTASH (SvRV (sth))); |
462 | mc = mc_find (SvSTASH (SvRV (sth))); |
458 | |
463 | |
459 | if (!mc->bind_param) |
464 | if (!mc->bind_param) |
460 | { |
465 | { |
461 | mc_cache (mc, bind_param); |
466 | mc_cache (mc, bind_param); |