From 279ba443fd71cc7295c3033af1de517824c73c94 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 8 Sep 2004 03:48:45 +0000 Subject: (get_user_or_group) fix freeze (#11274) --- perl-install/standalone/drakperm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/drakperm') 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; } -- cgit v1.2.1