version 1.6, 2006/06/19 09:35:08
|
version 1.7, 2006/06/19 10:00:27
|
Line 173 sub untie_user_hash {
|
Line 173 sub untie_user_hash {
|
sub locking_hash_tie { |
sub locking_hash_tie { |
my ($filename,$how)=@_; |
my ($filename,$how)=@_; |
my ($file_prefix,$namespace)=&db_filename_parts($filename); |
my ($file_prefix,$namespace)=&db_filename_parts($filename); |
unless ($namespace) { return undef; } |
if ($namespace eq '') { return undef; } |
return &_locking_hash_tie($file_prefix,$namespace,$how); |
return &_locking_hash_tie($file_prefix,$namespace,$how); |
} |
} |
|
|
Line 184 sub locking_hash_untie {
|
Line 184 sub locking_hash_untie {
|
sub db_filename_parts { |
sub db_filename_parts { |
my ($filename)=@_; |
my ($filename)=@_; |
my ($file_path,$namespace)=($filename=~/^(.*)\/([^\/]+)\.db$/); |
my ($file_path,$namespace)=($filename=~/^(.*)\/([^\/]+)\.db$/); |
unless ($namespace) { return undef; } |
if ($namespace eq '') { return undef; } |
return ($file_path.'/'.$namespace,$namespace); |
return ($file_path.'/'.$namespace,$namespace); |
} |
} |
|
|