From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001 From: Manuel Traut Date: Fri, 29 Apr 2011 09:09:27 +0200 Subject: added debootstrap stuff Signed-off-by: Manuel Traut --- .../debian-rfs/usr/share/perl5/Debconf/Priority.pm | 40 ++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm') 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 -- cgit v1.2.3