… | |
… | |
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; |