summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-12 08:15:06 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-12 08:15:06 +0000
commitc4c72709e607424c9329f48f4af444dc614bddcf (patch)
tree4fa1652e23ac8336fd29e85ab483484b320a33b6 /perl-install
parentd03fcfe06842bae764e64841f84b1cff94107e54 (diff)
downloaddrakx-c4c72709e607424c9329f48f4af444dc614bddcf.tar
drakx-c4c72709e607424c9329f48f4af444dc614bddcf.tar.gz
drakx-c4c72709e607424c9329f48f4af444dc614bddcf.tar.bz2
drakx-c4c72709e607424c9329f48f4af444dc614bddcf.tar.xz
drakx-c4c72709e607424c9329f48f4af444dc614bddcf.zip
perl_checker fixes
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 3dab291d2..17d0240fa 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -200,7 +200,7 @@ sub save_perm {
}
#- on list selection we get all data concerning the current selection
sub row_setting_data {
- my (undef, $row, $column, undef ) = @_;
+ my (undef, $row, $column) = @_;
%CURENT = ('clicked' => {'row' => $row,
'col' => $column
},
@@ -371,7 +371,7 @@ sub get_user_or_group {
my $what = @_;
my @users;
local *F;
- open F, $what eq 'users' ? '/etc/passwd': '/etc/group';
+ open F, $what eq 'users' ? '/etc/passwd' : '/etc/group';
local $_;
while (<F>) {