From e47d0821bfd0def11d10bb68a46a3335934f283a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 6 Jan 2004 17:24:08 +0000 Subject: perl_checker compliance --- perl-install/standalone/adduserdrake | 2 -- 1 file changed, 2 deletions(-) (limited to 'perl-install/standalone/adduserdrake') diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index ff024dbf7..4db218671 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -8,8 +8,6 @@ use common; use interactive; use any; -my @etc_pass_fields = qw(name pw uid gid realname home shell); -my @shells = any::shells(); my $isMD5 = cat_("/etc/pam.d/system-auth") =~ /md5/; my $isShadow = cat_("/etc/pam.d/system-auth") =~ /shadow/; -- cgit v1.2.1