From 6958d0eaf86868ef620d297ec6d7913588975f30 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 10 Jul 2002 15:02:21 +0000
Subject: no need to test two times if modinfo is executable in normal (ie not
 in drakx) case ...

---
 perl-install/modparm.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/modparm.pm')

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index ee5fd46ab..623590bc7 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -14,8 +14,10 @@ sub parameters {
   my ($module) = @_;
 
   my $modinfo = '/sbin/modinfo';
-  -x $modinfo or $modinfo = '/usr/bin/modinfo';
-  -x $modinfo or die _('modinfo is not available');
+  -x $modinfo or {
+	 $modinfo = '/usr/bin/modinfo';
+	 -x $modinfo or die _('modinfo is not available');
+  }
 
   if (!$::isStandalone && !$::testing) {
       modules::extract_modules('/tmp', $module);
-- 
cgit v1.2.1