summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-03-15 18:43:21 +0000
committerThierry Vignaud <tv@mageia.org>2013-03-15 18:43:21 +0000
commitcf388006fcb726a0a9edf45bec2ff0776850223b (patch)
tree973e41dc4d96aa2acf1edc47a9a28a8b75362e29 /bin
parent81d52af363cd4020f6dfc414a82d1eda54697c5e (diff)
downloaddrakguard-cf388006fcb726a0a9edf45bec2ff0776850223b.tar
drakguard-cf388006fcb726a0a9edf45bec2ff0776850223b.tar.gz
drakguard-cf388006fcb726a0a9edf45bec2ff0776850223b.tar.bz2
drakguard-cf388006fcb726a0a9edf45bec2ff0776850223b.tar.xz
drakguard-cf388006fcb726a0a9edf45bec2ff0776850223b.zip
perl_checker: no need to initialize variables, it's done by default
Diffstat (limited to 'bin')
-rwxr-xr-xbin/drakguard2
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/drakguard b/bin/drakguard
index ee35cd8..8908865 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -674,7 +674,7 @@ sub apply_block_program() {
#code to make diff bettween vectors
my (@intersection, @difference);
@intersection = @difference = ();
- my %count = ();
+ my %count;
foreach my $element (@original_list, @actual_list) { $count{$element}++ }
foreach my $element (keys %count) {
push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;