cvsuser 02/03/19 15:36:47
Modified: P5EEx/Blue/P5EEx/Blue/SharedResourceSet IPCLocker.pm
Log:
added 'autounlock' option
Revision Changes Path
1.2 +25 -20 p5ee/P5EEx/Blue/P5EEx/Blue/SharedResourceSet/IPCLocker.pm
Index: IPCLocker.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/SharedResourceSet/IPCLocker.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- IPCLocker.pm 19 Mar 2002 22:51:07 -0000 1.1
+++ IPCLocker.pm 19 Mar 2002 23:36:47 -0000 1.2
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: IPCLocker.pm,v 1.1 2002/03/19 22:51:07 spadkins Exp $
+## $Id: IPCLocker.pm,v 1.2 2002/03/19 23:36:47 spadkins Exp $
#############################################################################
package P5EEx::Blue::SharedResourceSet::IPCLocker;
@@ -62,10 +62,10 @@
timeout Time at which the server will release the lock if not explicitly
unlocked by then
default: 600 sec (10 min) (0 is "unlimited")
-
-The "nonBlocking" option works in this implementation.
-However, all locks are exclusive (the nonExclusive option is ignored).
-The "maxWaitTimeMS" option is not yet implemented.
+ autounlock Allow the locker daemon to break the lock if the locking process
+ is no longer running. (Note that there is an implicit promise
+ that the locking process is running on the same server as the
+ locker daemon.)
=cut
@@ -122,6 +122,10 @@
The lock() method on a SharedResourceSet is for the purposes of cooperative
resource locking.
+The "nonBlocking" option works in this implementation.
+However, all locks are exclusive (the nonExclusive option is ignored).
+The "maxWaitTimeMS" option is not yet implemented.
+
=cut
sub lock {
@@ -149,6 +153,7 @@
push(@params, "host", $self->{host}) if (defined $self->{host});
push(@params, "port", $self->{port}) if (defined $self->{port});
push(@params, "timeout", $self->{timeout}) if (defined $self->{timeout});
+ push(@params, "autounlock", $self->{autounlock}) if (defined
$self->{autounlock});
# I need to investigate more what IPC::Locker does with this name
# I may need to use "$user-$session_id"
# The default "name" is "$hostname-$pid" or something similar
