From 246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 7 Jan 2004 22:37:21 +0000 Subject: when called from commands.pm, install_any is not loaded --- perl-install/run_program.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index d53c26007..c080be7d7 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -47,7 +47,10 @@ sub raw { return 1 if $root && $<; $root ? ($root .= '/') : ($root = ''); - install_any::check_prog(ref($name) ? $name->[0] : $name) if !$root && !$::isStandalone; + if (!$root && !$::isStandalone) { + require install_any; + install_any::check_prog(ref($name) ? $name->[0] : $name); + } my ($stdout_raw, $stdout_mode, $stderr_raw, $stderr_mode); -- cgit v1.2.1