+use Config;
+use File::Spec;
+
+sub validate_exe {
+ my ($name, $preferred_path) = @_;
+
+ my (@candidates, @args);
+ if (File::Spec->file_name_is_absolute($name)) {
+ # No need to look for args if the name is absolute.
+ @candidates = $name;
+ } else {
+ my @path;
+ if (defined $preferred_path) {
+ @path = ($preferred_path, grep { $_ ne $preferred_path } File::Spec->path);
+ } else {
+ @path = File::Spec->path;
+ }
+
+ (my $base, @args) = split ' ', $name;
+ for my $path_entry (@path) {
+ my ($vol, $dir, $file) = File::Spec->splitpath($path_entry, 1);
+ next if defined $file and length $file;
+ push @candidates, File::Spec->catpath($vol, $dir, $base);
+ }
+ }
+
+ for my $path (@candidates) {
+ my $command = MM->maybe_command($path);
+ if (defined $command) {
+ $command .= " @args" if @args;
+ return $command;
+ }
+ }
+
+ return;
+}
+
+sub check_exe {
+ my (%args) = @_;
+
+ my $desc = delete $args{desc};
+ my $arg_var = delete $args{arg_var};
+ my $tries = delete $args{try};
+ my $preferred_path = delete $args{preferred_path};
+
+ my $exe;
+
+ for (@ARGV) {
+ if (/^\Q$arg_var\E=(.*)/) {
+ $exe = validate_exe($1, $preferred_path);
+ last if defined $exe;
+ }
+ }
+
+ if (defined $exe) {
+ print "Forcing the use of $exe as the $desc.\n";
+ } else {
+ print "Checking for a valid $desc in the PATH... ";
+ for my $try (@$tries) {
+ next unless defined $try;
+ $exe = validate_exe($try, $preferred_path);
+ last if defined $exe;
+ }
+ if (defined $exe) {
+ print "$exe\n";
+ } else {
+ print "none\n";
+ }
+ }
+
+ return $exe;