[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.910.2.3 and 1.910.2.4

version 1.910.2.3, 2007/10/01 21:54:06 version 1.910.2.4, 2007/10/01 23:54:54
Line 320  sub convert_and_load_session_env { Line 320  sub convert_and_load_session_env {
     my ($lonidsdir,$handle)=@_;      my ($lonidsdir,$handle)=@_;
     my @profile;      my @profile;
     {      {
  open(my $idf,'+<',"$lonidsdir/$handle.id");   my $opened = open(my $idf,'+<',"$lonidsdir/$handle.id");
  if (!$idf) {   if (!$opened) {
     return 0;      return 0;
  }   }
  flock($idf,LOCK_SH);   flock($idf,LOCK_SH);
Line 362  sub transfer_profile_to_env { Line 362  sub transfer_profile_to_env {
   
     my $convert;      my $convert;
     {      {
     open(my $idf,'+<',"$lonidsdir/$handle.id");      my $opened = open(my $idf,'+<',"$lonidsdir/$handle.id");
  if (!$idf) {   if (!$opened) {
     return;      return;
  }   }
  flock($idf,LOCK_SH);   flock($idf,LOCK_SH);
Line 431  sub appenv { Line 431  sub appenv {
             $env{$key}=$newenv{$key};              $env{$key}=$newenv{$key};
         }          }
     }      }
     open(my $env_file,'+<',$env{'user.environment'});      my $opened = open(my $env_file,'+<',$env{'user.environment'});
     if ($env_file      if ($opened
  && &timed_flock($env_file,LOCK_EX)   && &timed_flock($env_file,LOCK_EX)
  &&   &&
  tie(my %disk_env,'GDBM_File',$env{'user.environment'},   tie(my %disk_env,'GDBM_File',$env{'user.environment'},
Line 453  sub delenv { Line 453  sub delenv {
                 "Attempt to delete from environment ".$delthis);                  "Attempt to delete from environment ".$delthis);
         return 'error';          return 'error';
     }      }
     open(my $env_file,'+<',$env{'user.environment'});      my $opened = open(my $env_file,'+<',$env{'user.environment'});
     if ($env_file      if ($opened
  && &timed_flock($env_file,LOCK_EX)   && &timed_flock($env_file,LOCK_EX)
  &&   &&
  tie(my %disk_env,'GDBM_File',$env{'user.environment'},   tie(my %disk_env,'GDBM_File',$env{'user.environment'},
Removed from v.1.910.2.3  
changed lines
  Added in v.1.910.2.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>