| … | |
… | |
| 384 | }; |
384 | }; |
| 385 | |
385 | |
| 386 | my $error = $@; |
386 | my $error = $@; |
| 387 | |
387 | |
| 388 | eval { |
388 | eval { |
|
|
389 | $DB_ENV->txn_checkpoint (0, 0, 0); |
|
|
390 | |
| 389 | undef %DB_TABLE; |
391 | undef %DB_TABLE; |
| 390 | undef $DB_ENV; |
392 | undef $DB_ENV; |
| 391 | |
393 | |
| 392 | Storable::store_fd [die => $error], $fh; |
394 | Storable::store_fd [die => $error], $fh; |
| 393 | }; |
395 | }; |
| 394 | |
396 | |
| 395 | $DB_ENV->txn_checkpoint (0, 0, 0); |
|
|
| 396 | CFPlus::_exit 0; |
397 | CFPlus::_exit 0; |
| 397 | } |
398 | } |
| 398 | |
399 | |
| 399 | close $fh; |
400 | close $fh; |
| 400 | CFPlus::fh_nonblocking $FH, 1; |
401 | CFPlus::fh_nonblocking $FH, 1; |
