diff options
| author | Eugeni Dodonov <eugeni@mandriva.org> | 2010-04-07 20:10:28 +0000 |
|---|---|---|
| committer | Eugeni Dodonov <eugeni@mandriva.org> | 2010-04-07 20:10:28 +0000 |
| commit | 2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a (patch) | |
| tree | d7b93f8141b39e19a900a7c53c6190345e075891 /bin | |
| parent | af49c4a01c342806bf4cb3d5229ef08da64da5e9 (diff) | |
| download | drakguard-2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a.tar drakguard-2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a.tar.gz drakguard-2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a.tar.bz2 drakguard-2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a.tar.xz drakguard-2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a.zip | |
code improvements
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; } |