| … | |
… | |
| 433 | goto error; |
433 | goto error; |
| 434 | } |
434 | } |
| 435 | |
435 | |
| 436 | if (DBIc_TRACE_LEVEL(imp_xxh) >= 2) |
436 | if (DBIc_TRACE_LEVEL(imp_xxh) >= 2) |
| 437 | { |
437 | { |
| 438 | perlinterp_release (); |
438 | perlinterp_acquire (); |
| 439 | PerlIO_printf(DBIc_LOGPIO(imp_xxh), |
439 | PerlIO_printf(DBIc_LOGPIO(imp_xxh), |
| 440 | "\t\tmysql_st_internal_execute41 calling mysql_execute with %d num_params\n", |
440 | "\t\tmysql_st_internal_execute41 calling mysql_execute with %d num_params\n", |
| 441 | num_params); |
441 | num_params); |
| 442 | perlinterp_acquire (); |
442 | perlinterp_release (); |
| 443 | } |
443 | } |
| 444 | |
444 | |
| 445 | |
445 | |
| 446 | execute_retval= mysql_stmt_execute(stmt); |
446 | execute_retval= mysql_stmt_execute(stmt); |
| 447 | |
447 | |
| … | |
… | |
| 508 | to temporarily re-acquire the interpreter. This is slow, but logging is |
508 | to temporarily re-acquire the interpreter. This is slow, but logging is |
| 509 | normally off: |
509 | normally off: |
| 510 | |
510 | |
| 511 | if (DBIc_TRACE_LEVEL(imp_xxh) >= 2) |
511 | if (DBIc_TRACE_LEVEL(imp_xxh) >= 2) |
| 512 | { |
512 | { |
| 513 | perlinterp_release (); |
513 | perlinterp_acquire (); |
| 514 | PerlIO_printf(DBIc_LOGPIO(imp_xxh), |
514 | PerlIO_printf(DBIc_LOGPIO(imp_xxh), |
| 515 | "\t\tmysql_st_internal_execute41 calling mysql_execute with %d num_params\n", |
515 | "\t\tmysql_st_internal_execute41 calling mysql_execute with %d num_params\n", |
| 516 | num_params); |
516 | num_params); |
| 517 | perlinterp_acquire (); |
517 | perlinterp_release (); |
| 518 | } |
518 | } |
| 519 | |
519 | |
| 520 | The function also has a separate error exit, each of which needs it's own |
520 | The function also has a separate error exit, each of which needs it's own |
| 521 | C<perlinterp_acquire> call. First the normal function exit: |
521 | C<perlinterp_acquire> call. First the normal function exit: |
| 522 | |
522 | |
