From 71fa089ab8145e2ee2398d6fc647c886cc358f8c Mon Sep 17 00:00:00 2001 From: ndparker <> Date: Wed, 25 Jul 2001 21:09:35 +0000 Subject: [PATCH 1/1] modified version check --- selfforum-cgi/shared/Lock/API.pm | 12 ++++++------ selfforum-cgi/shared/Lock/Exclusive.pm | 12 ++++++------ selfforum-cgi/shared/Lock/Handle.pm | 14 +++++++------- selfforum-cgi/shared/Lock/Symlink.pm | 14 +++++++------- selfforum-cgi/shared/Lock/Unlink.pm | 14 +++++++------- selfforum-cgi/shared/Lock/_simple.pm | 12 ++++++------ selfforum-cgi/shared/Lock/_static.pm | 12 ++++++------ 7 files changed, 45 insertions(+), 45 deletions(-) diff --git a/selfforum-cgi/shared/Lock/API.pm b/selfforum-cgi/shared/Lock/API.pm index d832289..8210ef7 100644 --- a/selfforum-cgi/shared/Lock/API.pm +++ b/selfforum-cgi/shared/Lock/API.pm @@ -4,7 +4,7 @@ package Lock::API; # # # File: shared/Lock/API.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: system independent part of Locking and Filehandle class # # NOT FOR PUBLIC USE # @@ -12,10 +12,6 @@ package Lock::API; ################################################################################ use strict; -use vars qw( - $VERSION -); - use Carp; use base qw( @@ -27,7 +23,11 @@ use base qw( # # 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'} ### sub lock ################################################################### # diff --git a/selfforum-cgi/shared/Lock/Exclusive.pm b/selfforum-cgi/shared/Lock/Exclusive.pm index d6243ec..fbcf38d 100644 --- a/selfforum-cgi/shared/Lock/Exclusive.pm +++ b/selfforum-cgi/shared/Lock/Exclusive.pm @@ -4,7 +4,7 @@ package Lock::Exclusive; # # # File: shared/Lock/Exclusive.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: Locking and Filehandle class # # using O_EXCL and lock files # @@ -12,17 +12,17 @@ package Lock::Exclusive; ################################################################################ use strict; -use vars qw( - $VERSION -); - 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'} ### sub _simple_lock ########################################################### # diff --git a/selfforum-cgi/shared/Lock/Handle.pm b/selfforum-cgi/shared/Lock/Handle.pm index 3287f6f..e89f4b2 100644 --- a/selfforum-cgi/shared/Lock/Handle.pm +++ b/selfforum-cgi/shared/Lock/Handle.pm @@ -4,7 +4,7 @@ package Lock::Handle; # # # File: shared/Lock/Handle.pm # # # -# Authors: Andre Malo , 2001-05-30 # +# Authors: André Malo # # # # Description: belongs to Locking and Filehandle class # # NOT FOR PUBLIC USE # @@ -12,19 +12,19 @@ package Lock::Handle; ################################################################################ use strict; -use vars qw( - $VERSION -); +use Symbol qw(gensym); use base qw(Lock::_static); -use Symbol qw(gensym); - ################################################################################ # # 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'} ### sub new #################################################################### # diff --git a/selfforum-cgi/shared/Lock/Symlink.pm b/selfforum-cgi/shared/Lock/Symlink.pm index 82ea283..dfe8fd1 100644 --- a/selfforum-cgi/shared/Lock/Symlink.pm +++ b/selfforum-cgi/shared/Lock/Symlink.pm @@ -4,7 +4,7 @@ package Lock::Symlink; # # # File: shared/Lock/Symlink.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: Locking and Filehandle class # # using symlinks # @@ -12,17 +12,17 @@ package Lock::Symlink; ################################################################################ use strict; -use vars qw( - $VERSION -); - 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'} ### sub _simple_lock ########################################################### # @@ -118,4 +118,4 @@ sub exsh_announced {-l shift -> exshlock} # # -### end of Lock::Symlink ####################################################### +### end of Lock::Symlink ####################################################### \ No newline at end of file diff --git a/selfforum-cgi/shared/Lock/Unlink.pm b/selfforum-cgi/shared/Lock/Unlink.pm index d7bd6ec..b4770f3 100644 --- a/selfforum-cgi/shared/Lock/Unlink.pm +++ b/selfforum-cgi/shared/Lock/Unlink.pm @@ -4,7 +4,7 @@ package Lock::Unlink; # # # File: shared/Lock/Unlink.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: Locking and Filehandle class # # using the atomic behavior of unlinkig files # @@ -12,17 +12,17 @@ package Lock::Unlink; ################################################################################ use strict; -use vars qw( - $VERSION -); - 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'} ### sub _simple_lock ########################################################### # @@ -121,4 +121,4 @@ sub exsh_announced {not -f shift -> exshlock} # # -### end of Lock::Unlink ######################################################## +### end of Lock::Unlink ######################################################## \ No newline at end of file diff --git a/selfforum-cgi/shared/Lock/_simple.pm b/selfforum-cgi/shared/Lock/_simple.pm index 7aae43a..e281b12 100644 --- a/selfforum-cgi/shared/Lock/_simple.pm +++ b/selfforum-cgi/shared/Lock/_simple.pm @@ -4,7 +4,7 @@ package Lock::_simple; # # # File: shared/Lock/_simple.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: belongs to Locking and Filehandle class # # NOT FOR PUBLIC USE # @@ -12,17 +12,17 @@ package Lock::_simple; ################################################################################ use strict; -use vars qw( - $VERSION -); - 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'} ### sub _simple_esna ########################################################### # diff --git a/selfforum-cgi/shared/Lock/_static.pm b/selfforum-cgi/shared/Lock/_static.pm index 37233de..6d58b2d 100644 --- a/selfforum-cgi/shared/Lock/_static.pm +++ b/selfforum-cgi/shared/Lock/_static.pm @@ -4,7 +4,7 @@ package Lock::_static; # # # File: shared/Lock/_static.pm # # # -# Authors: Andre Malo , 2001-05-25 # +# Authors: André Malo # # # # Description: belongs to Locking and Filehandle class # # NO PUBLIC USE # @@ -14,17 +14,17 @@ package Lock::_static; ################################################################################ use strict; -use vars qw( - $VERSION -); - use Carp; ################################################################################ # # 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'} ################################################################################ # -- 2.34.1