From 3992740ddadeaafa924976fee26b4f7c6c2412ea Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 15 Mar 2013 18:43:15 +0000
Subject: perl_checker: write "foreach" instead of "for"

---
 bin/drakguard | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'bin')

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