| Server IP : 170.150.155.74 / Your IP : 18.117.156.84 Web Server : Apache/2.4.53 (Debian) System : Linux b22bf132354b 5.4.0-162-generic #179-Ubuntu SMP Mon Aug 14 08:51:31 UTC 2023 x86_64 User : www-data ( 33) PHP Version : 7.4.29 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/perl5/Debconf/ |
Upload File : |
#!/usr/bin/perl
# This file was preprocessed, do not edit!
package Debconf::Path;
use strict;
use File::Spec;
sub find {
my $program=shift;
my @path=File::Spec->path();
for my $dir (@path) {
my $file=File::Spec->catfile($dir, $program);
return 1 if -x $file;
}
return '';
}
1