loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.8, 2006/06/26 21:19:36	version 1.9, 2006/06/27 14:49:29
Line 231 sub _do_hash_untie {	Line 231 sub _do_hash_untie {

sub _locking_hash_tie {	sub _locking_hash_tie {
my ($file_prefix,$namespace,$how,$loghead,$what) = @_;	my ($file_prefix,$namespace,$how,$loghead,$what) = @_;
	if (defined($sym)) {
	die('Nested locking attempted, this is unsupportted');
	}

my $lock_type=LOCK_SH;	my $lock_type=LOCK_SH;
# Are we reading or writing?	# Are we reading or writing?
if ($how eq &GDBM_READER()) {	if ($how eq &GDBM_READER()) {
Line 248 sub _do_hash_untie {	Line 252 sub _do_hash_untie {
open($sym,">>$file_prefix.db.lock");	open($sym,">>$file_prefix.db.lock");
}	}
# Do a shared lock	# Do a shared lock
if (!&flock_sym(LOCK_SH)) { return undef; }	if (!&flock_sym(LOCK_SH)) {
	return undef;
	}
# If this is compressed, we will actually need an exclusive lock	# If this is compressed, we will actually need an exclusive lock
if (-e "$file_prefix.db.gz") {	if (-e "$file_prefix.db.gz") {
if (!&flock_sym(LOCK_EX)) { return undef; }	if (!&flock_sym(LOCK_EX)) {
	return undef;
	}
}	}
} elsif ($how eq &GDBM_WRCREAT()) {	} elsif ($how eq &GDBM_WRCREAT()) {
# We are writing	# We are writing
open($sym,">>$file_prefix.db.lock");	open($sym,">>$file_prefix.db.lock");
# Writing needs exclusive lock	# Writing needs exclusive lock
if (!&flock_sym(LOCK_EX)) { return undef; }	if (!&flock_sym(LOCK_EX)) {
	return undef;
	}
} else {	} else {
die("Unknown method $how for $file_prefix");	die("Unknown method $how for $file_prefix");
}	}