diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-25 09:09:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-25 09:09:52 +0000 |
| commit | b0ef4f854e427c065abcc1e23f8da2143682fe6c (patch) | |
| tree | 23595da84ec7bfd339ffb7cc1acc82b9ee672c9d /perl-install | |
| parent | 3be3b8d7eecc3c14069de85addde570ecb38d43f (diff) | |
| download | drakx-b0ef4f854e427c065abcc1e23f8da2143682fe6c.tar drakx-b0ef4f854e427c065abcc1e23f8da2143682fe6c.tar.gz drakx-b0ef4f854e427c065abcc1e23f8da2143682fe6c.tar.bz2 drakx-b0ef4f854e427c065abcc1e23f8da2143682fe6c.tar.xz drakx-b0ef4f854e427c065abcc1e23f8da2143682fe6c.zip | |
(ask_users): fix dead-loop
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 91110e9f8..7df987faf 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -719,7 +719,7 @@ sub ask_users { member($u->{name}, map { $_->{name} } @$users) and $in->ask_warn('', _("This user name is already added")), return (1,0); return 0; }; - $in->ask_from_entries_refH_powered( + my $ret = $in->ask_from_entries_refH_powered( { title => _("Add user"), messages => _("Enter a user\n%s", $names), ok => _("Accept user"), @@ -746,6 +746,7 @@ sub ask_users { push @$users, $u if $u->{name}; $u = {}; + $ret or return; } } |