1 files changed, 0 insertions, 40 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm
deleted file mode 100644
index d937626..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/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