From 2c2c7ee3ca94502c45e2efee6c3ec9bc1232691a Mon Sep 17 00:00:00 2001 From: Eugeni Dodonov Date: Wed, 7 Apr 2010 20:10:28 +0000 Subject: code improvements --- bin/drakguard | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin') 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; } -- cgit v1.2.1