filter the config list to exclude configs that no longer exist

avoid unnecessary sort/grep in the case where we already have a sorted list

1 files changed, 5 insertions, 3 deletions

diff --git a/debian/local/pam-auth-update b/debian/local/pam-auth-update
index 3df71cc1..ad7b22f7 100755
--- a/debian/local/pam-auth-update
+++ b/debian/local/pam-auth-update
@@ -100,10 +100,12 @@ if (!@enabled) {
 	close(SEEN);
 	push(@enabled,
 	     grep { $profiles{$_}->{'Default'} eq 'yes' && !$seen{$_} } @sorted);
+	# filter out any options that are no longer available for any reason
+	@enabled = grep { $profiles{$_} } @enabled;
+	@enabled = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'} } @enabled;
+	my $prev = '';
+	@enabled = grep { $_ ne $prev && (($prev) = $_) } @enabled;
 }
-@enabled = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'} } @enabled;
-my $prev = '';
-@enabled = grep { $_ ne $prev && (($prev) = $_) } @enabled;
 
 fset($template,'seen','false');
 set($template,join(', ', @enabled));