summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-28 14:50:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-28 14:50:58 +0000
commit096be6385ba2616de501dc69381edca09252471d (patch)
treee0fffbb535d610fca003d1556f0fefa59a39224d /perl-install
parent16eee40a59a395a716cb3d933ea6f7ff7d02963d (diff)
downloaddrakx-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-xperl-install/standalone/drakperm6
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;