summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-09 02:45:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-09 02:45:54 +0000
commit4d172794e8da43b109b0fe5b27af48bdf38870e7 (patch)
treecb8dbb9e62aa1e7aa1da5a185d7c600be688865d /perl-install
parent29063091ad4cd16685bfabc8e48ade00329ec20b (diff)
downloaddrakx-4d172794e8da43b109b0fe5b27af48bdf38870e7.tar
drakx-4d172794e8da43b109b0fe5b27af48bdf38870e7.tar.gz
drakx-4d172794e8da43b109b0fe5b27af48bdf38870e7.tar.bz2
drakx-4d172794e8da43b109b0fe5b27af48bdf38870e7.tar.xz
drakx-4d172794e8da43b109b0fe5b27af48bdf38870e7.zip
simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/run_program.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 6ab67f9ff..a3ac04354 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -54,7 +54,7 @@ sub raw {
$root ? ($root .= '/') : ($root = '');
if (!$root && !$::isStandalone) {
require install_any;
- install_any::check_prog(ref($name) ? $name->[0] : $name);
+ install_any::check_prog($real_name);
}
$ENV{HOME} || $::isInstall or $ENV{HOME} = '/root';