summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-08 03:48:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-08 03:48:45 +0000
commit279ba443fd71cc7295c3033af1de517824c73c94 (patch)
tree5cb14701ffaec0f58bec2d7442c6eb6f68555221 /perl-install
parenta919fa77942d8a94ee0ae50abdd1b619e734e6dc (diff)
downloaddrakx-279ba443fd71cc7295c3033af1de517824c73c94.tar
drakx-279ba443fd71cc7295c3033af1de517824c73c94.tar.gz
drakx-279ba443fd71cc7295c3033af1de517824c73c94.tar.bz2
drakx-279ba443fd71cc7295c3033af1de517824c73c94.tar.xz
drakx-279ba443fd71cc7295c3033af1de517824c73c94.zip
(get_user_or_group) fix freeze (#11274)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm2
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;
}