summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-20 15:22:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-20 15:22:35 +0000
commit9019b937fb749673a02f983f7d103946caf9567f (patch)
tree904db1838be9f0d00a0d5359ea178634d7cf0696 /perl-install/standalone
parent3fde3164488e9597a6e2ddc156f9d62d1ac288e5 (diff)
downloaddrakx-9019b937fb749673a02f983f7d103946caf9567f.tar
drakx-9019b937fb749673a02f983f7d103946caf9567f.tar.gz
drakx-9019b937fb749673a02f983f7d103946caf9567f.tar.bz2
drakx-9019b937fb749673a02f983f7d103946caf9567f.tar.xz
drakx-9019b937fb749673a02f983f7d103946caf9567f.zip
perform test once and move it out of the save loop
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakperm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index d5c125105..b23ab5b80 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -214,15 +214,15 @@ sub load_perms() {
local *F;
open F, $file;
+ my @editable = if_($file ne $perm_files{editable}, editable => $pixbuf);
local $_;
- my $is_uneditable = $file ne $perm_files{editable};
while (<F>) {
next if /^#/;
# Editable, Path, User, Group, Permissions
if (m/^(\S+)\s+([^.\s]+)\.(\S+)?\s+(\d+)/) {
- push @rules, { if_($is_uneditable, editable => $pixbuf), path => $1, user => $2, group => $3, perms => $4, index => $index };
+ push @rules, { @editable, path => $1, user => $2, group => $3, perms => $4, index => $index };
} elsif (m/^(\S+)\s+current?\s+(\d+)/) {
- push @rules, { if_($is_uneditable, editable => $pixbuf), path => $1, user => 'current', group => '', perms => $2, index => $index };
+ push @rules, { @editable, path => $1, user => 'current', group => '', perms => $2, index => $index };
} else {
warn "unparsable \"$_\"line";
}