From 0e35cc32d1216b5c49a92950bf03aa20f1ef9de4 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 12 Jun 2008 18:27:57 +0000 Subject: remove unused variables --- perl-install/authentication.pm | 1 - 1 file changed, 1 deletion(-) (limited to 'perl-install/authentication.pm') diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index 9b0f9d3be..30afb9e16 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -556,7 +556,6 @@ sub set_pam_authentication { @para = difference2(\@para, \@para_for_last); my ($before_noask, $ask) = partition { $_ eq 'castella' } @{$special{$type}}; - my ($before, $after) = partition { $_ eq 'krb5' } @$ask; if (!@$ask) { @para_for_last = grep { $_ ne 'use_first_pass' } @para_for_last; -- cgit v1.2.1