diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-08 03:48:45 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-08 03:48:45 +0000 |
| commit | 279ba443fd71cc7295c3033af1de517824c73c94 (patch) | |
| tree | 5cb14701ffaec0f58bec2d7442c6eb6f68555221 /perl-install | |
| parent | a919fa77942d8a94ee0ae50abdd1b619e734e6dc (diff) | |
| download | drakx-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-x | perl-install/standalone/drakperm | 2 |
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; } |