1 files changed, 40 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm
new file mode 100644
index 0000000..d937626
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Priority;
+use strict;
+use Debconf::Config;
+use base qw(Exporter);
+our @EXPORT_OK = qw(high_enough priority_valid priority_list);
+
+
+my %priorities=(
+	'low' => 0,
+	'medium' => 1,
+	'high' => 2,
+	'critical' => 3,
+);
+
+
+sub high_enough {
+	my $priority=shift;
+
+	return 1 if ! exists $priorities{$priority};
+	return $priorities{$priority} >= $priorities{Debconf::Config->priority};
+}
+
+
+sub priority_valid {
+	my $priority=shift;
+
+	return exists $priorities{$priority};
+}
+
+
+sub priority_list {
+	return sort { $priorities{$a} <=> $priorities{$b} } keys %priorities;
+}
+
+
+1