version 1.313, 2006/01/31 16:12:12
|
version 1.314, 2006/01/31 16:32:00
|
Line 1074 sub _do_hash_untie {
|
Line 1074 sub _do_hash_untie {
|
die(); |
die(); |
} |
} |
|
|
&logthis("$$ for $namespace"); |
|
$sym=&Symbol::gensym(); |
$sym=&Symbol::gensym(); |
open($sym,"$file_prefix.db"); |
open($sym,"$file_prefix.db"); |
&logthis("$$ for $namespace attempt lock"); |
|
my $failed=0; |
my $failed=0; |
eval { |
eval { |
local $SIG{__DIE__}='DEFAULT'; |
local $SIG{__DIE__}='DEFAULT'; |
Line 1090 sub _do_hash_untie {
|
Line 1088 sub _do_hash_untie {
|
alarm(0); |
alarm(0); |
}; |
}; |
if ($failed) { |
if ($failed) { |
&logthis("$$ for $namespace got failed lock"); |
|
$! = 100; # throwing error # 100 |
$! = 100; # throwing error # 100 |
return undef; |
return undef; |
} |
} |
&logthis("$$ for $file_prefix.db got lock"); |
|
return &_do_hash_tie($file_prefix,$namespace,$how,$loghead,$what); |
return &_do_hash_tie($file_prefix,$namespace,$how,$loghead,$what); |
} |
} |
|
|