loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

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);
}	}