EVERYTHING FROM THE OTHER REPO

include/dual_rootfs/usr/share/perl5/Debconf/Path.pm

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Path;
+use warnings;
+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