diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 2 |
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 |