summaryrefslogtreecommitdiffstats
path: root/MDK/Common/System.pm
diff options
context:
space:
mode:
Diffstat (limited to 'MDK/Common/System.pm')
-rw-r--r--MDK/Common/System.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm
index 22894b3..3b21a9d 100644
--- a/MDK/Common/System.pm
+++ b/MDK/Common/System.pm
@@ -290,14 +290,14 @@ sub gettimeofday() { my $t = pack "LL"; syscall_('gettimeofday', $t, 0) or die "
sub unix2dos { local $_ = $_[0]; s/\015$//mg; s/$/\015/mg; $_ }
sub whereis_binary {
- my ($prog) = @_;
+ my ($prog, $o_prefix) = @_;
if ($prog =~ m!/!) {
warn qq(don't call whereis_binary with a name containing a "/" (the culprit is: $prog)\n);
return;
}
foreach (split(':', $ENV{PATH})) {
my $f = "$_/$prog";
- -x $f and return $f;
+ -x "$o_prefix$f" and return $f;
}
}