perl_checker: write "foreach" instead of "for"

1 files changed, 3 insertions, 3 deletions

diff --git a/bin/drakguard b/bin/drakguard
index 3c5e254..c92f1be 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -665,12 +665,12 @@ sub apply_block_program() {
     if ($program_control) {
         my @original_list = read_program_list($url_lists[2]{file});
 	my @orig_list = read_program_list($url_lists[2]{file});
-	for (@original_list) {
+	foreach (@original_list) {
 	    s/\s(.*)//;
 	}
         my @actual_list = list_get_entries($url_lists[2]{list});
 	my @act_list = list_get_entries($url_lists[2]{list});
-	for (@actual_list) {
+	foreach (@actual_list) {
 	    s/\s(.*)//;
 	}
 	#code to make diff bettween vectors
@@ -745,7 +745,7 @@ sub apply_block_program() {
     } 
     else {
 	my @original_list = list_get_entries($url_lists[2]{list});
-	for (@original_list) {
+	foreach (@original_list) {
 	    s/\s(.*)//;
 	}
 	#restore the original file permissions