<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
# This file was preprocessed, do not edit!


package Debconf::Element::Noninteractive::Select;
use warnings;
use strict;
use base qw(Debconf::Element::Noninteractive);


sub show {
	my $this=shift;

	$this-&gt;question-&gt;template-&gt;i18n('');
	my @choices=$this-&gt;question-&gt;choices_split;
	$this-&gt;question-&gt;template-&gt;i18n(1);
	my $value=$this-&gt;question-&gt;value;
	$value='' unless defined $value;
	my $inlist=0;
	map { $inlist=1 if $_ eq $value } @choices;

	if (! $inlist) {
		if (@choices) {
			$this-&gt;value($choices[0]);
		}
		else {
			$this-&gt;value('');
		}
	}
	else {
		$this-&gt;value($value);
	}
}


1
</pre></body></html>