fixed some bugs, prepared the 0.98 release

[selfforum.git] / selfforum-cgi / shared / Lock.pm

diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm
index 72900639f608e6899c2654f462f7dfd70fac82c4..a611ce6b44c5757e2712dcc14939412b01fce0b5 100644 (file)
--- a/selfforum-cgi/shared/Lock.pm
+++ b/selfforum-cgi/shared/Lock.pm
@@ -11,16 +11,19 @@ package Lock;
 ################################################################################
 
 use strict;
 ################################################################################
 
 use strict;

-use Carp;

 use vars qw(
   @EXPORT_OK
   %EXPORT_TAGS
 use vars qw(
   @EXPORT_OK
   %EXPORT_TAGS

+  %LOCKED

   $Timeout
   $violentTimeout
   $masterTimeout
   $iAmMaster
 );
 
   $Timeout
   $violentTimeout
   $masterTimeout
   $iAmMaster
 );
 

+use Carp;
+use Fcntl;
+

 ################################################################################
 #
 # Export
 ################################################################################
 #
 # Export


@@ -35,6 +38,7 @@ use base qw(Exporter);
   violent_unlock_file
   set_master_lock
   release_file
   violent_unlock_file
   set_master_lock
   release_file

+  file_removed

 );
 
 %EXPORT_TAGS = (
 );
 
 %EXPORT_TAGS = (


@@ -48,17 +52,26 @@ use base qw(Exporter);
     write_unlock_file
     violent_unlock_file
   )],
     write_unlock_file
     violent_unlock_file
   )],

-  ALL   => [qw(
-    lock_file
-    unlock_file
-    write_lock_file
-    write_unlock_file
-    violent_unlock_file
-    set_master_lock
-    release_file
-  )]
+  ALL   => \@EXPORT_OK

 );
 
 );
 

+### sub ~file ($) ##############################################################
+#
+# create lock file names
+#
+sub reffile ($) {
+  return $_[0].'.lock.ref';
+}
+sub lockfile ($) {
+  return $_[0].'.lock';
+}
+sub masterfile ($) {
+  return $_[0].'.master';
+}
+sub masterlockfile ($) {
+  return lockfile(masterfile $_[0]);
+}
+

 ################################################################################
 #
 # Windows section (no symlinks)
 ################################################################################
 #
 # Windows section (no symlinks)


@@ -78,21 +91,23 @@ sub w_lock_file ($;$) {
   my $filename = shift;
   my $timeout  = +shift || $Timeout;
 
   my $filename = shift;
   my $timeout  = +shift || $Timeout;
 

-  if (-f &masterlockfile($filename)) {
-    for (0..$timeout) {
-
-      # try to increment the reference counter
-      #
-      &set_ref($filename,1,$timeout) and return 1;
-      sleep (1);
+  unless ($LOCKED{$filename}) {
+    if (-f masterlockfile($filename)) {
+      for (1..$timeout) {
+
+        # try to increment the reference counter
+        #
+        if (set_ref($filename,1,$timeout)) {
+          $LOCKED{$filename}=1;
+          return 1;
+        }
+        sleep (1);
+      }
+    }
+    else {
+      # master lock is set or file has not been released yet
+      return;

     }
     }

-   }
-
-  else {
-    # master lock is set
-    # or file has not been realeased yet
-    #
-    return;

   }
 
   # time out
   }
 
   # time out


@@ -114,17 +129,25 @@ sub w_unlock_file ($;$) {
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 

-  if (-f &masterlockfile($filename)) {
-
-    # try do decrement the reference counter
-    #
-    &set_ref($filename,-1,$timeout) and return 1;
+  if ($LOCKED{$filename}) {
+    if ($LOCKED{$filename} == 3) {
+      return unless write_unlock_file($filename, $timeout);
+      $LOCKED{$filename} = 1;
+    }
+    if ($LOCKED{$filename} == 1) {
+      if (-f masterlockfile($filename)) {
+
+        # try do decrement the reference counter
+        #
+        if (set_ref($filename, -1, $timeout)) {
+          delete $LOCKED{$filename};
+          return 1;
+        }
+      }
+    }

   }
 
   # time out
   }
 
   # time out

-  # maybe the system is occupied
-  # or file has not been released yet
-  #

   return;
 }
 
   return;
 }
 


@@ -141,33 +164,37 @@ sub w_unlock_file ($;$) {
 sub w_write_lock_file ($;$) {
   my $filename=shift;
   my $timeout= shift || $Timeout;
 sub w_write_lock_file ($;$) {
   my $filename=shift;
   my $timeout= shift || $Timeout;

+  my $rest = ($LOCKED{$filename} and $LOCKED{$filename} == 1) ? 1 : 0;

 
 

-  if (-f &masterlockfile($filename) or $iAmMaster) {
+  if (-f masterlockfile($filename) or $iAmMaster) {

 
     # announce the write lock
     # and wait $timeout seconds for
     # references == 0 (no shared locks set)
     #
 
     # announce the write lock
     # and wait $timeout seconds for
     # references == 0 (no shared locks set)
     #

-    &simple_lock ($filename,$timeout) or return;
-    for (0..$timeout) {
+    simple_lock ($filename,$timeout) or return 0;
+    for (1..$timeout) {

       # lock reference counter
       # or fail
       #
       # lock reference counter
       # or fail
       #

-      unless (&simple_lock (&reffile($filename),$timeout)) {
-        &simple_unlock($filename,$timeout);
-        return;
+      unless (simple_lock (reffile($filename),$timeout)) {
+        simple_unlock($filename,$timeout);
+        return 0;

       }
 
       # ready if we have no shared locks
       #
       }
 
       # ready if we have no shared locks
       #

-      return 1 if (&get_ref ($filename) == 0);
+      if (get_ref ($filename) == $rest) {
+        $LOCKED{$filename} = 2 | ($rest ? 1 : 0);
+        return 1;
+      };

 
       # release reference counter
       # shared locks get the chance to be removed
       #
 
       # release reference counter
       # shared locks get the chance to be removed
       #

-      unless (&simple_unlock (&reffile($filename),$timeout)) {
-        &simple_unlock($filename,$timeout);
-        return;
+      unless (simple_unlock (reffile($filename),$timeout)) {
+        simple_unlock($filename,$timeout);
+        return 0;

       }
       sleep(1);
     }
       }
       sleep(1);
     }


@@ -175,17 +202,15 @@ sub w_write_lock_file ($;$) {
     # write lock failed
     # remove the announcement
     #
     # write lock failed
     # remove the announcement
     #

-    &simple_unlock ($filename);}
+    simple_unlock ($filename);
+  }

 
   else {
 
   else {

-    # master lock is set
-    # or file has not been released yet
-    #
-    return;}
+    # master lock is set or file has not been released yet
+    return;
+  }

 
   # time out
 
   # time out

-  # maybe the system is occupied
-  #

   0;
 }
 
   0;
 }
 


@@ -203,17 +228,19 @@ sub w_write_unlock_file ($;$) {
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 

-  if (-f &masterlockfile($filename) or $iAmMaster) {
+  if (-f masterlockfile($filename) or $iAmMaster) {

 
     # remove reference counter lock
     #
 
     # remove reference counter lock
     #

-    &simple_unlock (&reffile($filename),$timeout) or return;
+    simple_unlock (reffile($filename),$timeout) or return;

 
     # remove the write lock announce
     #
 
     # remove the write lock announce
     #

-    &simple_unlock ($filename,$timeout) or return;}
+    simple_unlock ($filename,$timeout) or return;
+  }

 
   # done
 
   # done

+  delete $LOCKED{$filename};

   1;
 }
 
   1;
 }
 


@@ -229,20 +256,22 @@ sub w_write_unlock_file ($;$) {
 sub w_violent_unlock_file ($) {
   my $filename = shift;
 
 sub w_violent_unlock_file ($) {
   my $filename = shift;
 

-  if (-f &masterlockfile($filename)) {
+  if (-f masterlockfile($filename)) {

 
     # find out last modification time
     # and do nothing unless 'violent-timout' is over
     #
     my $reffile;
 
     # find out last modification time
     # and do nothing unless 'violent-timout' is over
     #
     my $reffile;

-    if (-f ($reffile = $filename) or -f ($reffile = &lockfile($filename))) {
+    if (-f ($reffile = $filename) or -f ($reffile = lockfile($filename))) {

       my $time = (stat $reffile)[9];
       my $time = (stat $reffile)[9];

-      return if ((time - $time) < $violentTimeout);}
+      (time - $time) >= $violentTimeout   or return;
+    }

 
     write_lock_file ($filename,1);       # last try, to set an exclusive lock on $filename
 
     write_lock_file ($filename,1);       # last try, to set an exclusive lock on $filename

-    unlink (&reffile($filename));        # reference counter = 0
-    simple_unlock (&reffile($filename)); # release reference counter file
+    unlink (reffile($filename));         # reference counter = 0
+    simple_unlock (reffile($filename));  # release reference counter file

     simple_unlock ($filename);}          # release file
     simple_unlock ($filename);}          # release file

+    delete $LOCKED{$filename};

 
   return;
 }
 
   return;
 }


@@ -263,11 +292,11 @@ sub w_set_master_lock ($;$) {
 
   # set exclusive lock or fail
   #
 
   # set exclusive lock or fail
   #

-  return unless (&write_lock_file ($filename,$timeout));
+  return unless (write_lock_file ($filename,$timeout));

 
   # set master lock
   #
 
   # set master lock
   #

-  unlink &masterlockfile($filename) and return 1;
+  unlink masterlockfile($filename)    and return 1;

 
   # no chance (occupied?, master lock set yet?)
   return;
 
   # no chance (occupied?, master lock set yet?)
   return;


@@ -286,16 +315,26 @@ sub w_set_master_lock ($;$) {
 sub w_release_file ($) {
   my $filename=shift;
 
 sub w_release_file ($) {
   my $filename=shift;
 

-  unlink (&reffile($filename));                              # reference counter = 0
-  return if (-f &reffile($filename));                      # really?
-  return unless (simple_unlock (&reffile($filename)));     # release reference counter
-  return unless (&simple_unlock ($filename));              # remove any write lock announce
-  return unless (&simple_unlock (&masterfile($filename))); # remove master lock
+  unlink (reffile($filename));                              # reference counter = 0
+  return if (-f reffile($filename));                        # really?
+  return unless (simple_unlock (reffile($filename)));       # release reference counter
+  return unless (simple_unlock ($filename));                # remove any write lock announce
+  return unless (simple_unlock (masterfile($filename)));    # remove master lock
+  delete $LOCKED{$filename};

 
   # done
   1;
 }
 
 
   # done
   1;
 }
 

+sub w_file_removed ($) {
+  my $filename = shift;
+
+  unlink reffile($filename);
+  unlink lockfile($filename);
+  unlink lockfile(reffile($filename));
+  unlink masterlockfile($filename);
+}
+

 ################################################################################
 #
 # *n*x section (symlinks possible)
 ################################################################################
 #
 # *n*x section (symlinks possible)


@@ -315,25 +354,27 @@ sub x_lock_file ($;$) {
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 

-  unless (-l &masterlockfile($filename)) {
-    for (0..$timeout) {
-
-      # try to increment the reference counter
-      #
-      &set_ref($filename,1,$timeout) and return 1;
-      sleep (1);
+  unless ($LOCKED{$filename}) {
+    unless (-l masterlockfile($filename)) {
+      for (1..$timeout) {
+
+        # try to increment the reference counter
+        #
+        if (set_ref($filename,1,$timeout)) {
+          $LOCKED{$filename} = 1;
+          return 1;
+        }
+        sleep (1);
+      }

     }
     }

-  }

 
 

-  else {
-    # master lock is set
-    # or file has not been realeased yet
-    #
-    return;
+    else {
+      # master lock is set or file has not been realeased yet
+      return;
+    }

   }
 
   # time out
   }
 
   # time out

-  # maybe the system is occupied

   0;
 }
 
   0;
 }
 


@@ -351,16 +392,25 @@ sub x_unlock_file ($;$) {
   my $filename=shift;
   my ($timeout)=(shift (@_) or $Timeout);
 
   my $filename=shift;
   my ($timeout)=(shift (@_) or $Timeout);
 

-  unless (-l &masterlockfile($filename)) {
-    # try do decrement the reference counter
-    #
-    &set_ref($filename,-1,$timeout) and return 1;}
+  if ($LOCKED{$filename}) {
+    if ($LOCKED{$filename} == 3) {
+      return unless write_unlock_file($filename, $timeout);
+      $LOCKED{$filename} = 1;
+    }
+    if ($LOCKED{$filename} == 1) {
+      unless (-l masterlockfile($filename)) {
+        # try to decrement the reference counter
+        #
+        set_ref($filename,-1,$timeout) and do {
+          delete $LOCKED{$filename};
+          return 1;
+        }
+      }

 
 

-  # time out
-  # maybe the system is occupied
-  # or file has not been released yet
-  #
-  return;
+      # time out
+      return;
+    }
+  }

 }
 
 ### sub x_write_lock_file ($;$) ################################################
 }
 
 ### sub x_write_lock_file ($;$) ################################################


@@ -376,33 +426,37 @@ sub x_unlock_file ($;$) {
 sub x_write_lock_file ($;$) {
   my $filename = shift;
   my $timeout  = shift || $Timeout;
 sub x_write_lock_file ($;$) {
   my $filename = shift;
   my $timeout  = shift || $Timeout;

+  my $rest = ($LOCKED{$filename} and $LOCKED{$filename} == 1) ? 1 : 0;

 
 

-  unless (-l &masterlockfile($filename) and not $iAmMaster) {
+  unless (-l masterlockfile($filename) and not $iAmMaster) {

     # announce the write lock
     # and wait $timeout seconds for
     # references == 0 (no shared locks set)
     #
     # announce the write lock
     # and wait $timeout seconds for
     # references == 0 (no shared locks set)
     #

-    &simple_lock ($filename,$timeout) or return;
-    for (0..$timeout) {
+    simple_lock ($filename,$timeout) or return 0;
+    for (1..$timeout) {

 
       # lock reference counter
       # or fail
       #
 
       # lock reference counter
       # or fail
       #

-      unless (&simple_lock (&reffile($filename),$timeout)) {
-        &simple_unlock($filename,$timeout);
-        return;
+      unless (simple_lock (&reffile($filename),$timeout)) {
+        simple_unlock($filename,$timeout);
+        return 0;

       }
 
       # ready if we have no shared locks
       #
       }
 
       # ready if we have no shared locks
       #

-      return 1 if (&get_ref ($filename) == 0);
+      if (get_ref ($filename) == $rest) {
+        $LOCKED{$filename} = 2 | ($rest ? 1 : 0);
+        return 1;
+      };

 
       # release reference counter
       # shared locks get the chance to be removed
       #
 
       # release reference counter
       # shared locks get the chance to be removed
       #

-      unless (&simple_unlock (&reffile($filename),$timeout)) {
-        &simple_unlock($filename,$timeout);
-        return;
+      unless (simple_unlock (&reffile($filename),$timeout)) {
+        simple_unlock($filename,$timeout);
+        return 0;

       }
       sleep(1);
     }
       }
       sleep(1);
     }


@@ -410,7 +464,8 @@ sub x_write_lock_file ($;$) {
     # write lock failed
     # remove the announcement
     #
     # write lock failed
     # remove the announcement
     #

-    &simple_unlock ($filename);}
+    simple_unlock ($filename);
+  }

 
   else {
     # master lock is set
 
   else {
     # master lock is set


@@ -442,14 +497,15 @@ sub x_write_unlock_file ($;$) {
   unless (-l &masterlockfile($filename) and not $iAmMaster) {
     # remove reference counter lock
     #
   unless (-l &masterlockfile($filename) and not $iAmMaster) {
     # remove reference counter lock
     #

-    &simple_unlock (&reffile($filename),$timeout) or return;
+    simple_unlock (reffile($filename),$timeout) or return;

 
     # remove the write lock announce
     #
 
     # remove the write lock announce
     #

-    &simple_unlock ($filename,$timeout) or return;
+    simple_unlock ($filename,$timeout) or return;

   }
 
   # done
   }
 
   # done

+  delete $LOCKED{$filename};

   1;
 }
 
   1;
 }
 


@@ -475,16 +531,17 @@ sub x_violent_unlock_file ($) {
     if (-f ($reffile = $filename)) {
       $time = (stat $reffile)[9];}
 
     if (-f ($reffile = $filename)) {
       $time = (stat $reffile)[9];}
 

-    elsif (-l ($reffile = &lockfile($filename))) {
+    elsif (-l ($reffile = lockfile($filename))) {

       $time = (lstat $reffile)[9];}
 
     if ($reffile) {
       return if ((time - $time) < $violentTimeout);}
 
     write_lock_file ($filename,1);       # last try, to set an exclusive lock on $filename
       $time = (lstat $reffile)[9];}
 
     if ($reffile) {
       return if ((time - $time) < $violentTimeout);}
 
     write_lock_file ($filename,1);       # last try, to set an exclusive lock on $filename

-    unlink (&reffile($filename));        # reference counter = 0
-    simple_unlock (&reffile($filename)); # release reference counter file
+    unlink (reffile($filename));         # reference counter = 0
+    simple_unlock (reffile($filename));  # release reference counter file

     simple_unlock ($filename);}          # release file
     simple_unlock ($filename);}          # release file

+    delete $LOCKED{$filename};

 }
 
 ### sub x_set_master_lock ($;$) ################################################
 }
 
 ### sub x_set_master_lock ($;$) ################################################


@@ -503,11 +560,11 @@ sub x_set_master_lock ($;$) {
 
   # set exclusive lock or fail
   #
 
   # set exclusive lock or fail
   #

-  return unless (&write_lock_file ($filename,$timeout));
+  return unless (write_lock_file ($filename,$timeout));

 
   # set master lock
   #
 
   # set master lock
   #

-  symlink $filename, &masterlockfile($filename) and return 1;
+  symlink $filename, masterlockfile($filename) and return 1;

 
   # no chance (occupied?, master lock set yet?)
   return;
 
   # no chance (occupied?, master lock set yet?)
   return;


@@ -526,37 +583,19 @@ sub x_set_master_lock ($;$) {
 sub x_release_file ($) {
   my $filename=shift;
 
 sub x_release_file ($) {
   my $filename=shift;
 

-  unlink (&reffile($filename));                            # reference counter = 0
-  return if (-f &reffile($filename));                      # really?
-  return unless (simple_unlock (&reffile($filename)));     # release reference counter
-  return unless (&simple_unlock ($filename));              # remove any write lock announce
-  return unless (&simple_unlock (&masterfile($filename))); # remove master lock
+  unlink (reffile($filename));                            # reference counter = 0
+  return if (-f reffile($filename));                      # really?
+  return unless (simple_unlock (reffile($filename)));     # release reference counter
+  return unless (simple_unlock ($filename));              # remove any write lock announce
+  return unless (simple_unlock (masterfile($filename)));  # remove master lock
+  delete $LOCKED{$filename};

 
   # done
   1;
 }
 
 
   # done
   1;
 }
 

-################################################################################
-#
-# private subs
-#
-
-### sub ~file ($) ##############################################################
-#
-# create lock file names
-#
-sub reffile ($) {
-  "$_[0].lock.ref";
-}
-sub lockfile ($) {
-  "$_[0].lock";
-}
-sub masterlockfile ($) {
-  &lockfile(&masterfile($_[0]));
-}
-sub masterfile ($) {
-  confess unless defined $_[0];
-  "$_[0].master";
+sub x_file_removed ($) {
+  release_file (shift);

 }
 
 ### sub w_simple_lock ($;$) ####################################################
 }
 
 ### sub w_simple_lock ($;$) ####################################################


@@ -590,7 +629,7 @@ sub w_simple_unlock ($) {
   my $lockfile = lockfile $filename;
   local *LF;
 
   my $lockfile = lockfile $filename;
   local *LF;
 

-  if (open(LF, "> $lockfile")) {
+  if (sysopen(LF, $lockfile, O_WRONLY|O_CREAT|O_TRUNC)) {

     return 1 if close (LF);
   }
 
     return 1 if close (LF);
   }
 


@@ -599,8 +638,8 @@ sub w_simple_unlock ($) {
   return;
 }
 
   return;
 }
 

-### sub w_simple_lock ($;$) ####################################################
-### sub w_simple_unlock ($) ####################################################
+### sub x_simple_lock ($;$) ####################################################
+### sub x_simple_unlock ($) ####################################################

 #
 # simple file lock/unlock
 # (symlinks possible: create/unlink symlink)
 #
 # simple file lock/unlock
 # (symlinks possible: create/unlink symlink)


@@ -621,15 +660,13 @@ sub x_simple_lock ($;$) {
   }
 
   # time out
   }
 
   # time out

-  # locking failed (occupied?)
-  #

   return;
 }
 
 sub x_simple_unlock ($) {
   my $filename=shift;
 
   return;
 }
 
 sub x_simple_unlock ($) {
   my $filename=shift;
 

-  unlink (&lockfile($filename)) and return 1;
+  unlink (lockfile $filename) and return 1;

 
   # not able to unlink symlink, hmmm...
   #
 
   # not able to unlink symlink, hmmm...
   #


@@ -652,30 +689,20 @@ sub w_set_ref ($$$) {
   my $filename = shift;
   my $z        = shift;
   my $timeout  = shift || $Timeout;
   my $filename = shift;
   my $z        = shift;
   my $timeout  = shift || $Timeout;

-  my $old;
-  my $reffile = reffile $filename;
+  my $reffile  = reffile $filename;

   local *REF;
 
   # if write lock announced, only count down allowed
   #
   local *REF;
 
   # if write lock announced, only count down allowed
   #

-  if ($z > 0) {
-    return unless(-f lockfile($filename));
-  }
+  ($z < 0 or -f lockfile ($filename))                     or return;

 
   # lock reference counter file
   #
 
   # lock reference counter file
   #

-  return unless(&simple_lock ($reffile,$timeout));
+  simple_lock ($reffile,$timeout)                         or return;

 
   # load reference counter
   #
 
   # load reference counter
   #

-  unless (open REF,"<$reffile") {
-    $old=0;
-  }
-  else {
-    $old=<REF>;
-    chomp $old;
-    close REF or return;
-  }
+  my $old = get_ref ($filename);

 
   # compute and write new ref. counter
   #
 
   # compute and write new ref. counter
   #


@@ -686,17 +713,21 @@ sub w_set_ref ($$$) {
   # if ref. counter == 0
   #
   if ($old == 0) {
   # if ref. counter == 0
   #
   if ($old == 0) {

-    unlink $reffile or return;
+    unlink $reffile                                       or return;

   }
   else {
   }
   else {

-    open REF,">$reffile" or return;
-    print REF $old or return;
-    close REF or return;
+    local $\;
+    sysopen (REF, $reffile, O_WRONLY | O_TRUNC | O_CREAT) or return;
+    print REF $old                                        or do {
+                                                            close REF;
+                                                            return
+                                                          };
+    close REF                                             or return;

   }
 
   # release ref. counter file
   #
   }
 
   # release ref. counter file
   #

-  return unless(&simple_unlock($reffile));
+  simple_unlock($reffile)                                 or return;

 
   # done
   1;
 
   # done
   1;


@@ -718,47 +749,44 @@ sub x_set_ref ($$$) {
   my $filename = shift;
   my $z        = shift;
   my $timeout  = shift || $Timeout;
   my $filename = shift;
   my $z        = shift;
   my $timeout  = shift || $Timeout;

-  my $old;
-  my $reffile = reffile $filename;
+  my $reffile  = reffile $filename;

   local *REF;
 
   # if write lock announced, only count down allowed
   #
   if ($z > 0) {
   local *REF;
 
   # if write lock announced, only count down allowed
   #
   if ($z > 0) {

-    return if(-l &lockfile($filename));
+    return if(-l lockfile($filename));

   }
 
   # lock reference counter file
   #
   }
 
   # lock reference counter file
   #

-  return unless(&simple_lock ($reffile,$timeout));
+  return unless(simple_lock ($reffile,$timeout));

 
   # load reference counter
   #
 
   # load reference counter
   #

-  unless (open REF,"<$reffile") {
-    $old=0;
-  }
-  else {
-    $old=<REF>;
-    chomp $old;
-    close REF or return;
-  }
+  my $old = get_ref ($filename);

 
   # compute and write new ref. counter
   #
   $old += $z;
   $old = 0 if ($old < 0);
 
   # compute and write new ref. counter
   #
   $old += $z;
   $old = 0 if ($old < 0);

+

   if ($old == 0) {
   if ($old == 0) {

-    unlink $reffile or return;
+    unlink $reffile                                       or return;

   }
   else {
   }
   else {

-    open REF,">$reffile" or return;
-    print REF $old or return;
-    close REF or return;
+    local $\;
+    sysopen (REF, $reffile, O_WRONLY | O_TRUNC | O_CREAT) or return;
+    print REF $old                                        or do {
+                                                            close REF;
+                                                            return
+                                                          };
+    close REF                                             or return;

   }
 
   # release ref. counter file
   #
   }
 
   # release ref. counter file
   #

-  return unless(&simple_unlock($reffile));
+  simple_unlock($reffile)                                 or return;

 
   # done
   1;
 
   # done
   1;


@@ -774,20 +802,16 @@ sub x_set_ref ($$$) {
 #
 # Return: reference counter
 #
 #
 # Return: reference counter
 #

-sub get_ref ($$) {
+sub get_ref ($) {

   my $filename = shift;
   my $reffile  = reffile $filename;
   my $old;
   local *REF;
   my $filename = shift;
   my $reffile  = reffile $filename;
   my $old;
   local *REF;

+  local $/;

 
 

-  unless (open REF,"< $reffile") {
-    $old = 0;
-  }
-  else {
-    $old=<REF>;
-    chomp $old;
-    close REF;
-  }
+  sysopen (REF, $reffile, O_RDONLY)    or return 0;
+    $old = <REF>;
+  close REF;

 
   # return value
   $old;
 
   # return value
   $old;


@@ -806,6 +830,8 @@ BEGIN {
 
   $iAmMaster = 0;        # default: I am nobody
 
 
   $iAmMaster = 0;        # default: I am nobody
 

+  %LOCKED = ();
+

   # assign the aliases to the needed functions
   # (perldoc -f symlink)
 
   # assign the aliases to the needed functions
   # (perldoc -f symlink)
 


@@ -817,6 +843,7 @@ BEGIN {
     *violent_unlock_file = \&x_violent_unlock_file;
     *set_master_lock     = \&x_set_master_lock;
     *release_file        = \&x_release_file;
     *violent_unlock_file = \&x_violent_unlock_file;
     *set_master_lock     = \&x_set_master_lock;
     *release_file        = \&x_release_file;

+    *file_removed        = \&x_file_removed;

 
     *simple_lock         = \&x_simple_lock;
     *simple_unlock       = \&x_simple_unlock;
 
     *simple_lock         = \&x_simple_lock;
     *simple_unlock       = \&x_simple_unlock;


@@ -831,6 +858,7 @@ BEGIN {
     *violent_unlock_file = \&w_violent_unlock_file;
     *set_master_lock     = \&w_set_master_lock;
     *release_file        = \&w_release_file;
     *violent_unlock_file = \&w_violent_unlock_file;
     *set_master_lock     = \&w_set_master_lock;
     *release_file        = \&w_release_file;

+    *file_removed        = \&w_file_removed;

 
     *simple_lock         = \&w_simple_lock;
     *simple_unlock       = \&w_simple_unlock;
 
     *simple_lock         = \&w_simple_lock;
     *simple_unlock       = \&w_simple_unlock;