--- loncom/lond 2006/01/31 16:12:12 1.313 +++ loncom/lond 2006/01/31 16:32:00 1.314 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.313 2006/01/31 16:12:12 albertel Exp $ +# $Id: lond,v 1.314 2006/01/31 16:32:00 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -61,7 +61,7 @@ my $status=''; my $lastlog=''; my $lond_max_wait_time = 13; -my $VERSION='$Revision: 1.313 $'; #' stupid emacs +my $VERSION='$Revision: 1.314 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -1074,10 +1074,8 @@ sub _do_hash_untie { die(); } - &logthis("$$ for $namespace"); $sym=&Symbol::gensym(); open($sym,"$file_prefix.db"); - &logthis("$$ for $namespace attempt lock"); my $failed=0; eval { local $SIG{__DIE__}='DEFAULT'; @@ -1090,11 +1088,9 @@ sub _do_hash_untie { alarm(0); }; if ($failed) { - &logthis("$$ for $namespace got failed lock"); $! = 100; # throwing error # 100 return undef; } - &logthis("$$ for $file_prefix.db got lock"); return &_do_hash_tie($file_prefix,$namespace,$how,$loghead,$what); }