uawdijnntqw1x1x1
IP : 216.73.216.155
Hostname : vm5018.vps.agava.net
Kernel : Linux vm5018.vps.agava.net 3.10.0-1127.8.2.vz7.151.14 #1 SMP Tue Jun 9 12:58:54 MSK 2020 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
var
/
..
/
usr
/
share
/
doc
/
..
/
perl5
/
Debconf
/
Priority.pm
/
/
#!/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
/var/../usr/share/doc/../perl5/Debconf/Priority.pm