summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-06 13:45:49 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-06 13:45:49 +0000
commiteca642bfaf46597557110f96061ca241c44c1a80 (patch)
treecfa889decc9bc140feb42e99be04e10ff0e608b0 /perl-install/standalone
parent094f223aef9fb6b798de4c1c51b3cc047f9ec734 (diff)
downloaddrakx-eca642bfaf46597557110f96061ca241c44c1a80.tar
drakx-eca642bfaf46597557110f96061ca241c44c1a80.tar.gz
drakx-eca642bfaf46597557110f96061ca241c44c1a80.tar.bz2
drakx-eca642bfaf46597557110f96061ca241c44c1a80.tar.xz
drakx-eca642bfaf46597557110f96061ca241c44c1a80.zip
do not discard 0 when perms are 0xx like
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakperm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index be77b1cfc..afcbfca94 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -323,7 +323,7 @@ sub row_setting_dialog {
$user = $users->entry->get_text;
$group = $groups->entry->get_text;
}
- $perms = sprintf("%o", eval(join('', "0b",
+ $perms = sprintf("%03o", eval(join('', "0b",
(map { $perms{$_}->get_active || 0 } reverse @bits),
(map { my $owner = $_;map_index { $perms{$owner}{$_}->get_active || 0 } @rights } @owners))));
# create new item if needed (that is when adding a new one) at end of list