From eca642bfaf46597557110f96061ca241c44c1a80 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Jan 2004 13:45:49 +0000 Subject: do not discard 0 when perms are 0xx like --- perl-install/standalone/drakperm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/drakperm') 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 -- cgit v1.2.1