diff options
| -rw-r--r-- | perl-install/run_program.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 8f2f18051..2eb9e8a6f 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -25,6 +25,7 @@ sub rooted { return 1 if $root && $<; $root ? $root .= '/' : ($root = ''); + install_any::check_prog (ref $name ? $name->[0] : $name, $root) if $::isInstall; if (my $pid = fork) { waitpid $pid, 0; |