From c1d3f710586fa01b526c36baaadee27dc2cf1e4d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 15 Mar 2013 18:43:09 +0000 Subject: perl_checker: fix both 'the arrow "->" is unneeded' & 'bad deref' --- bin/drakguard | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'bin') 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(.*)//; } -- cgit v1.2.1