|
Lines 3642-3648
sub permissions {
Link Here
|
| 3642 |
my $active_flags = {}; |
3642 |
my $active_flags = {}; |
| 3643 |
|
3643 |
|
| 3644 |
# Check which flags are active based on bit values |
3644 |
# Check which flags are active based on bit values |
| 3645 |
foreach my $bit ( keys %$userflags_map ) { |
3645 |
foreach my $bit ( keys %userflags_map ) { |
| 3646 |
if ( $flags & ( 1 << $bit ) ) { |
3646 |
if ( $flags & ( 1 << $bit ) ) { |
| 3647 |
my $flag = $userflags_map{$bit}; |
3647 |
my $flag = $userflags_map{$bit}; |
| 3648 |
$active_flags->{$flag} = 1; |
3648 |
$active_flags->{$flag} = 1; |
| 3649 |
- |
|
|