From 81d52af363cd4020f6dfc414a82d1eda54697c5e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 15 Mar 2013 18:43:19 +0000
Subject: simplify

---
 bin/drakguard | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/bin/drakguard b/bin/drakguard
index 92bb3d6..ee35cd8 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -531,14 +531,12 @@ sub set_permissions {
 
 sub restore_permissions {
     my ($line) = @_;
-    foreach ($line) {
-    	my ($fich, $usrname, $grpname, $mode) = /^(.*)\t(\w+)\.(\w+)\t(\d+)\s*/ or next;
+    	my ($fich, $usrname, $grpname, $mode) = $line =~ /^(.*)\t(\w+)\.(\w+)\t(\d+)\s*/ or return;
         $mode = sprintf "%04d", $mode;#make number with 4 digits
         my $guid = getgrnam($grpname);
         my $uid = getpwnam($usrname);
         chown $uid, $guid, $fich;
         chmod oct($mode), $fich;
-    }
 }
 
 sub subst_config_line {
-- 
cgit v1.2.1