From 07ef1cb49605b7d2df578a79f5eee812f87a7062 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 6 Nov 2002 18:04:39 +0000 Subject: make perl_checker happy --- perl-install/install2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index a699a5ebd..af3a40040 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -426,7 +426,7 @@ sub main { $o->{method} ||= "cdrom"; $o->{mkbootdisk} = 0; } - unless ($::testing || $::live) { + if (!$::testing && !$::live) { symlink "rhimage", "/tmp/image"; #- for compatibility with old stage1 unlink $_ foreach "/modules/modules.mar", "/sbin/stage1"; } @@ -516,7 +516,7 @@ sub main { } modules::probe_category('multimedia/sound'); #- needed very early for install_steps_gtk - eval { $o->{mouse} = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse}; + eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe} && !$o->{mouse}; $o->{lang} = lang::set($o->{lang}) if $o->{lang} ne 'en_US'; #- mainly for defcfg -- cgit v1.2.1