diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-03-15 18:43:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-03-15 18:43:21 +0000 |
| commit | cf388006fcb726a0a9edf45bec2ff0776850223b (patch) | |
| tree | 973e41dc4d96aa2acf1edc47a9a28a8b75362e29 | |
| parent | 81d52af363cd4020f6dfc414a82d1eda54697c5e (diff) | |
| download | drakguard-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
| -rwxr-xr-x | bin/drakguard | 2 |
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; |