--- loncom/lonnet/perl/lonnet.pm	2001/01/05 20:45:09	1.87
+++ loncom/lonnet/perl/lonnet.pm	2001/01/06 16:08:24	1.88
@@ -83,7 +83,7 @@
 # 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,
 # 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer
 # 05/01/01 Guy Albertelli
-# 05/01 Gerd Kortemeyer
+# 05/01,06/01 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -97,6 +97,7 @@ use IO::Socket;
 use GDBM_File;
 use Apache::Constants qw(:common :http);
 use HTML::TokeParser;
+use Fcntl qw(:flock);
 
 # --------------------------------------------------------------------- Logging
 
@@ -260,7 +261,7 @@ sub appenv {
 	return 'error';
      }
      my $newname;
-     flock($fh,'LOCK_EX');
+     flock($fh,LOCK_EX);
      foreach $newname (keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
      }
@@ -291,7 +292,7 @@ sub delenv {
      unless ($fh=Apache::File->new(">$ENV{'user.environment'}")) {
 	return 'error';
      }
-     flock($fh,'LOCK_EX');
+     flock($fh,LOCK_EX);
      map {
 	 unless ($_=~/^$delthis/) { print $fh $_; }
      } @oldenv;