summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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