[pve-devel] r6389 - in pve-access-control/trunk: . PVE

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-08-01 13:35:03 +0200 (Mon, 01 Aug 2011)
New Revision: 6389

Modified:
   pve-access-control/trunk/ChangeLog
   pve-access-control/trunk/PVE/AccessControl.pm
Log:
	* PVE/AccessControl.pm (lock_*): remove $parent in calls to
	cfs_lock_file() 



Modified: pve-access-control/trunk/ChangeLog
===================================================================
--- pve-access-control/trunk/ChangeLog	2011-08-01 11:33:10 UTC (rev 6388)
+++ pve-access-control/trunk/ChangeLog	2011-08-01 11:35:03 UTC (rev 6389)
@@ -1,3 +1,8 @@
+2011-08-01  Proxmox Support Team  <support at proxmox.com>
+
+	* PVE/AccessControl.pm (lock_*): remove $parent in calls to
+	cfs_lock_file() 
+
 2011-07-22  Proxmox Support Team  <support at proxmox.com>
 
 	* PVE/API2/Domains.pm (create): use lower case: s/AD/ad/ and

Modified: pve-access-control/trunk/PVE/AccessControl.pm
===================================================================
--- pve-access-control/trunk/PVE/AccessControl.pm	2011-08-01 11:33:10 UTC (rev 6388)
+++ pve-access-control/trunk/PVE/AccessControl.pm	2011-08-01 11:35:03 UTC (rev 6389)
@@ -44,9 +44,7 @@
 sub lock_user_config {
     my ($code, $errmsg) = @_;
 
-    my $parent = ( caller(1) )[3];
-
-    cfs_lock_file("user.cfg", undef, $parent, $code);
+    cfs_lock_file("user.cfg", undef, $code);
     my $err = $@;
     if ($err) {
 	$errmsg ? die "$errmsg: $err" : die $err;
@@ -56,9 +54,7 @@
 sub lock_domain_config {
     my ($code, $errmsg) = @_;
 
-    my $parent = ( caller(1) )[3];
-
-    cfs_lock_file($domainconfigfile, undef, $parent, $code);
+    cfs_lock_file($domainconfigfile, undef, $code);
     my $err = $@;
     if ($err) {
 	$errmsg ? die "$errmsg: $err" : die $err;
@@ -68,9 +64,7 @@
 sub lock_shadow_config {
     my ($code, $errmsg) = @_;
 
-    my $parent = ( caller(1) )[3];
-
-    cfs_lock_file($shadowconfigfile, undef, $parent, $code);
+    cfs_lock_file($shadowconfigfile, undef, $code);
     my $err = $@;
     if ($err) {
 	$errmsg ? die "$errmsg: $err" : die $err;