cvsuser 02/03/22 15:21:18
Modified: P5EEx/Blue/P5EEx/Blue/SharedResourceSet IPCLocker.pm
Log:
handle locking of resource sets which are not predefined
Revision Changes Path
1.3 +7 -1 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.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- IPCLocker.pm 19 Mar 2002 23:36:47 -0000 1.2
+++ IPCLocker.pm 22 Mar 2002 23:21:18 -0000 1.3
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: IPCLocker.pm,v 1.2 2002/03/19 23:36:47 spadkins Exp $
+## $Id: IPCLocker.pm,v 1.3 2002/03/22 23:21:18 spadkins Exp $
#############################################################################
package P5EEx::Blue::SharedResourceSet::IPCLocker;
@@ -103,8 +103,10 @@
=head2 lock()
* Signature: $resource_name = $srs->lock($resource_pool);
+ * Signature: $resource_name = $srs->lock($resource_set);
* Signature: $resource_name = $srs->lock($named);
* Param: $resource_pool string
+ * Param: $resource_set []
* Param: resourcePool string
* Param: nonBlocking boolean
* Param: nonExclusive boolean
@@ -134,6 +136,10 @@
if (ref($arg) eq "HASH") {
$resource_pool = $arg->{resourcePool};
$args = $arg;
+ }
+ elsif (ref($arg) eq "ARRAY") {
+ $resource_pool = $arg;
+ $args = {};
}
elsif (ref($arg) eq "") {
$resource_pool = $arg;
