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