| … | |
… | |
| 8 | ################################################################################ |
8 | ################################################################################ |
| 9 | |
9 | |
| 10 | use BerkeleyDB; |
10 | use BerkeleyDB; |
| 11 | use strict; |
11 | use strict; |
| 12 | |
12 | |
| 13 | my $TieMaxTries = 1; # try to tie() 30 times, then fail |
13 | my $TieMaxTries = 30; # try to tie() 30 times, then fail |
| 14 | my $TieSleepInterval = 2; # sleep 2 sec after failed tie() |
14 | my $TieSleepInterval = 2; # sleep 2 sec after failed tie() |
| 15 | |
15 | |
| 16 | sub tie_hash { |
16 | sub tie_hash { |
| 17 | my($fh, $db_obj_ref, $hash_ref, $file_name, $mode_flag, $file_mode) = @_; |
17 | my($fh, $db_obj_ref, $hash_ref, $file_name, $mode_flag, $file_mode) = @_; |
| 18 | # \$fh and \$db_obj_ref are not used by this routine. Other databases may |
18 | # \$fh and \$db_obj_ref are not used by this routine. Other databases may |
Parent Directory
| 
Revision Log
| 
Patch