X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/85946d0838c74882bd707bd1f5dbeeb7ea80944f..b9021e9738004ee35018d3ec16495b7dc1a287f0:/selfforum-cgi/shared/Lock.pm?ds=inline

diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm
index 55ab59f..6dbef1a 100644
--- a/selfforum-cgi/shared/Lock.pm
+++ b/selfforum-cgi/shared/Lock.pm
@@ -2,20 +2,15 @@ package Lock;
 
 ################################################################################
 #                                                                              #
-# File:        shared/Locked.pm                                                #
+# File:        shared/Lock.pm                                                  #
 #                                                                              #
-# Authors:     Andre Malo       <nd@o3media.de>, 2001-05-25                    #
+# Authors:     André Malo <nd@o3media.de>                                      #
 #                                                                              #
 # Description: Locking and Filehandle class                                    #
 #                                                                              #
 ################################################################################
 
 use strict;
-use vars qw(
-  $VERSION
-);
-
-use diagnostics;
 use vars qw($module);
 
 use Fcntl;
@@ -24,7 +19,11 @@ use Fcntl;
 #
 # Version check
 #
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
 ################################################################################
 #
@@ -59,19 +58,6 @@ use constant LH_MASTER => 3;
 use base 'Exporter';
 @Lock::EXPORT = qw(LH_SHARED LH_EXCL LH_EXSH LH_MASTER);
 
-###############
-# !!!!!!!!!!!!!!!!!
-# remove the following later
-###############
-package Locked;
-use constant LH_SHARED => 0;
-use constant LH_EXCL   => 1;
-use constant LH_EXSH   => 2;
-use constant LH_MASTER => 3;
-
-use base 'Exporter';
-@Locked::EXPORT = qw(LH_SHARED LH_EXCL LH_EXSH LH_MASTER);
-
 # keep require happy
 1;