version 1.327, 2006/05/18 02:17:27
|
version 1.328, 2006/05/18 02:32:06
|
Line 1052 sub _do_hash_untie {
|
Line 1052 sub _do_hash_untie {
|
# Are we reading or writing? |
# Are we reading or writing? |
if ($how eq &GDBM_READER()) { |
if ($how eq &GDBM_READER()) { |
# We are reading |
# We are reading |
unless (open($sym,"$file_prefix.db.lock")) { |
if (!open($sym,"$file_prefix.db.lock")) { |
# We don't have a lock file. This could mean |
# We don't have a lock file. This could mean |
# - that there is no such db-file |
# - that there is no such db-file |
# - that it does not have a lock file yet |
# - that it does not have a lock file yet |
unless ((-e "$file_prefix.db") || (-e "$file_prefix.db.gz")) { |
if ((! -e "$file_prefix.db") && (! -e "$file_prefix.db.gz")) { |
# No such file. Forget it. |
# No such file. Forget it. |
$! = 2; |
$! = 2; |
return undef; |
return undef; |