diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 14:50:58 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 14:50:58 +0000 |
| commit | 096be6385ba2616de501dc69381edca09252471d (patch) | |
| tree | e0fffbb535d610fca003d1556f0fefa59a39224d /perl-install | |
| parent | 16eee40a59a395a716cb3d933ea6f7ff7d02963d (diff) | |
| download | drakx-096be6385ba2616de501dc69381edca09252471d.tar drakx-096be6385ba2616de501dc69381edca09252471d.tar.gz drakx-096be6385ba2616de501dc69381edca09252471d.tar.bz2 drakx-096be6385ba2616de501dc69381edca09252471d.tar.xz drakx-096be6385ba2616de501dc69381edca09252471d.zip | |
one more fix
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 706c93667..09c83ffd9 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -37,7 +37,7 @@ my $Perm_list = new_with_titles Gtk::CList(N("path"), N("user"), N("group"), N(" my $vb = new Gtk::VBox(0,5); my $select_box = new Gtk::HBox(0,5); my $action_box = new Gtk::HBox(0,5); -my $up_down_box=new Gtk::HBox(0,5); +my $up_down_box = new Gtk::HBox(0,5); my $B_quit = new Gtk::Button('quit'); my $B_sav = new Gtk::Button('save'); my $B_up = new Gtk::Button(N("Up")); @@ -371,13 +371,13 @@ sub row_setting_dialog { sub get_user_or_group { my $what = @_; my @users; + local *F; $what eq 'users' and open F, '/etc/passwd' or open F, '/etc/group'; while (<F>) { - m/^([^#:]+):[^:]+:[^:]+:/ - or next; + m/^([^#:]+):[^:]+:[^:]+:/ or next; push @users, $1; } close F; |