From 096be6385ba2616de501dc69381edca09252471d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 28 Nov 2002 14:50:58 +0000 Subject: one more fix --- perl-install/standalone/drakperm | 6 +++--- 1 file 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 () { - m/^([^#:]+):[^:]+:[^:]+:/ - or next; + m/^([^#:]+):[^:]+:[^:]+:/ or next; push @users, $1; } close F; -- cgit v1.2.1