From cabe538139ecdbc82ab2eb1e06fcf6f95f1dac5f Mon Sep 17 00:00:00 2001 From: Max Kanat-Alexander Date: Sun, 24 Apr 2011 17:11:03 -0700 Subject: Bug 648178: Make install-module.pl check if a compiler is available and fail with a clear error if not. r=glob, a=mkanat --- Bugzilla/Install/Util.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'Bugzilla/Install/Util.pm') diff --git a/Bugzilla/Install/Util.pm b/Bugzilla/Install/Util.pm index a2371a0be..bd8942507 100644 --- a/Bugzilla/Install/Util.pm +++ b/Bugzilla/Install/Util.pm @@ -58,8 +58,14 @@ our @EXPORT_OK = qw( sub bin_loc { my ($bin, $path) = @_; + + # If the binary is a full path... + if ($bin =~ m{[/\\]}) { + return MM->maybe_command($bin) || ''; + } + + # Otherwise we look for it in the path in a cross-platform way. my @path = $path ? @$path : File::Spec->path; - foreach my $dir (@path) { next if !-d $dir; my $full_path = File::Spec->catfile($dir, $bin); -- cgit v1.2.3-24-g4f1b