From c4c72709e607424c9329f48f4af444dc614bddcf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 12 Feb 2003 08:15:06 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/drakperm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakperm')

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>) {
-- 
cgit v1.2.1