📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 01:15:49
📂
/ (Root)
/
usr
/
share
/
perl5
/
Debconf
📍 /usr/share/perl5/Debconf
🔄 Refresh
✏️
Editing: Priority.pm
Read Only
#!/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
💾 Save Changes
❌ Cancel