diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-06 13:45:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-06 13:45:49 +0000 |
| commit | eca642bfaf46597557110f96061ca241c44c1a80 (patch) | |
| tree | cfa889decc9bc140feb42e99be04e10ff0e608b0 /perl-install | |
| parent | 094f223aef9fb6b798de4c1c51b3cc047f9ec734 (diff) | |
| download | drakx-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')
| -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 |