diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-03-15 18:43:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-03-15 18:43:09 +0000 |
| commit | c1d3f710586fa01b526c36baaadee27dc2cf1e4d (patch) | |
| tree | 65be0a505fa0cfefcb43fdce8491ecfb952f1633 /bin | |
| parent | e8ffe657d1b5bd6d1266c58f0b884c3f33f42951 (diff) | |
| download | drakguard-c1d3f710586fa01b526c36baaadee27dc2cf1e4d.tar drakguard-c1d3f710586fa01b526c36baaadee27dc2cf1e4d.tar.gz drakguard-c1d3f710586fa01b526c36baaadee27dc2cf1e4d.tar.bz2 drakguard-c1d3f710586fa01b526c36baaadee27dc2cf1e4d.tar.xz drakguard-c1d3f710586fa01b526c36baaadee27dc2cf1e4d.zip | |
perl_checker: fix both 'the arrow "->" is unneeded' & 'bad deref'
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/drakguard | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/bin/drakguard b/bin/drakguard index 64f34b4..48003a5 100755 --- a/bin/drakguard +++ b/bin/drakguard @@ -460,7 +460,7 @@ sub save() { } else { $program_control = 0; - @url_lists[2]->{apply}(list_get_entries(@url_lists[2]->{list})); + $url_lists[2]{apply}(list_get_entries($url_lists[2]{list})); } services::set_status($_, $enable) foreach qw(squid dansguardian); @@ -668,13 +668,13 @@ sub apply_block_program { #my @addr = @_; #output_p($acl_file, map { $_ . "\n" } @addr); if ($program_control) { - my @original_list = read_program_list(@url_lists[2]->{file}); - my @orig_list = read_program_list(@url_lists[2]->{file}); + my @original_list = read_program_list($url_lists[2]{file}); + my @orig_list = read_program_list($url_lists[2]{file}); for (@original_list) { s/\s(.*)//; } - my @actual_list = list_get_entries(@url_lists[2]->{list}); - my @act_list = list_get_entries(@url_lists[2]->{list}); + my @actual_list = list_get_entries($url_lists[2]{list}); + my @act_list = list_get_entries($url_lists[2]{list}); for (@actual_list) { s/\s(.*)//; } @@ -750,7 +750,7 @@ sub apply_block_program { } } else { - my @original_list = list_get_entries(@url_lists[2]->{list}); + my @original_list = list_get_entries($url_lists[2]{list}); for (@original_list) { s/\s(.*)//; } |