<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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-&gt;path();
	for my $dir (@path) {
		my $file=File::Spec-&gt;catfile($dir, $program);
		return 1 if -x $file;
	}
	return '';
}


1
</pre></body></html>