| … | |
… | |
| 239 | { |
239 | { |
| 240 | /* the next line doesn't work - check why later maybe */ |
240 | /* the next line doesn't work - check why later maybe */ |
| 241 | /* dbh = get_sv ("DBH", FALSE); |
241 | /* dbh = get_sv ("DBH", FALSE); |
| 242 | if (!is_dbh (dbh)) |
242 | if (!is_dbh (dbh)) |
| 243 | {*/ |
243 | {*/ |
| 244 | dbh = GvSV(DBH); |
244 | dbh = GvSV (DBH); |
| 245 | if (!is_dbh (dbh)) |
245 | if (!is_dbh (dbh)) |
| 246 | croak ("sql_exec: no $DBH argument and no fallback in $PApp::SQL::DBH"); |
246 | croak ("sql_exec: no $DBH argument and no fallback in $PApp::SQL::DBH"); |
| 247 | /*croak ("sql_exec: no $DBH found in current package or in PApp::SQL::"); |
247 | /*croak ("sql_exec: no $DBH found in current package or in PApp::SQL::"); |
| 248 | }*/ |
248 | }*/ |
| 249 | } |
249 | } |
| 250 | else |
250 | else |
| 251 | arg++; /* we consumed one argument */ |
251 | arg++; /* we consumed one argument */ |
|
|
252 | |
|
|
253 | /* be more Coro-friendly by keeping a copy, so different threads */ |
|
|
254 | /* can multitask easier */ |
|
|
255 | dbh = sv_2mortal (newSVsv (dbh)); |
| 252 | |
256 | |
| 253 | /* count the remaining references (for bind_columns) */ |
257 | /* count the remaining references (for bind_columns) */ |
| 254 | bind_first = arg; |
258 | bind_first = arg; |
| 255 | while (items > arg && SvROK (ST(arg))) |
259 | while (items > arg && SvROK (ST(arg))) |
| 256 | arg++; |
260 | arg++; |
