CGI::Carp does not block eval errors all the time (bug?)

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

diff --git a/selfforum-cgi/shared/Lock.pm b/selfforum-cgi/shared/Lock.pm
index 55ab59f8e46eab7addfbc79131fdfc0af6430beb..6dbef1aaa38a71d79695c38426b63457b2393bd2 100644 (file)
--- 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;