From 6958d0eaf86868ef620d297ec6d7913588975f30 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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(-) 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