diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/drakguard | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/drakguard b/bin/drakguard index 013492f..7874d87 100755 --- a/bin/drakguard +++ b/bin/drakguard @@ -655,8 +655,8 @@ sub apply_block_program { my $element; @union = @intersection = @difference = (); my %count = (); - foreach $element (@original_list, @actual_list) { $count{$element}++ } - foreach $element (keys %count) { + foreach $element (@original_list, @actual_list) { $count{$element}++ }; + foreach $element (keys %count) { # push @union, $element; push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element; } |