From cf388006fcb726a0a9edf45bec2ff0776850223b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 15 Mar 2013 18:43:21 +0000
Subject: perl_checker: no need to initialize variables, it's done by default

---
 bin/drakguard | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.1