summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-07 22:37:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-07 22:37:21 +0000
commit246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2 (patch)
tree8aeacd2771cd781a9b9a0f755040a4a756176848
parent1938ec430bb1f2ef202133d12b6cfa45e4afa917 (diff)
downloaddrakx-backup-do-not-use-246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2.tar
drakx-backup-do-not-use-246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2.tar.gz
drakx-backup-do-not-use-246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2.tar.bz2
drakx-backup-do-not-use-246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2.tar.xz
drakx-backup-do-not-use-246b7e545d74ec577209f4e9d5ce8f0f5acfb7c2.zip
when called from commands.pm, install_any is not loaded
-rw-r--r--perl-install/run_program.pm5
1 files changed, 4 insertions, 1 deletions
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);