From 4d172794e8da43b109b0fe5b27af48bdf38870e7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Sep 2004 02:45:54 +0000
Subject: simplify

---
 perl-install/run_program.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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';
-- 
cgit v1.2.1