<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::Priority;
use warnings;
use strict;
use Debconf::Config;
use base qw(Exporter);
our @EXPORT_OK = qw(high_enough priority_valid priority_list);


my %priorities=(
	'low' =&gt; 0,
	'medium' =&gt; 1,
	'high' =&gt; 2,
	'critical' =&gt; 3,
);


sub high_enough {
	my $priority=shift;

	return 1 if ! exists $priorities{$priority};
	return $priorities{$priority} &gt;= $priorities{Debconf::Config-&gt;priority};
}


sub priority_valid {
	my $priority=shift;

	return exists $priorities{$priority};
}


sub priority_list {
	my @sorted = sort { $priorities{$a} &lt;=&gt; $priorities{$b} } keys %priorities;
	return @sorted;
}


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