1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 10c6bf077..2f6538d3b 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -410,7 +410,7 @@ sub get_user_or_group {
     my @users;
      
     local $_;
-    while (cat_($what eq 'users' ? '/etc/passwd' : '/etc/group')) {
+    foreach (cat_($what eq 'users' ? '/etc/passwd' : '/etc/group')) {
      m/^([^#:]+):[^:]+:[^:]+:/ or next;
      push @users, $1;
     }