summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/fileshareset
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-17 17:03:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-17 17:03:58 +0000
commit533bfd1d02d711b2cf517fda315156e02200861e (patch)
tree35d05b5ad5882ef94b34fa484a50b29819ba4306 /perl-install/standalone/fileshareset
parentb725c34c44a2a1f5092d67231ca3bc720bd03ce2 (diff)
downloaddrakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.gz
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.bz2
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.tar.xz
drakx-backup-do-not-use-533bfd1d02d711b2cf517fda315156e02200861e.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/standalone/fileshareset')
-rwxr-xr-xperl-install/standalone/fileshareset1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index 3e8cfe78a..e1dc4e6b4 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -125,6 +125,7 @@ package authorisation;
sub read_conf {
my ($exclusive_lock) = @_;
+ local *F_lock;
open F_lock, $authorisation_file; # don't care if it's missing
flock(F_lock, $exclusive_lock ? 2 : 1) or die "can't lock";
my %conf;