From 0676c599462c2627653a33a4704aa786eb273b3a Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 14 Sep 2001 15:42:54 +0000 Subject: bugfix --- perl-install/bootlook.pm | 2 +- perl-install/network/adsl.pm | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index cbad70b79..d5b90cfc9 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -280,7 +280,7 @@ sub isAutologin { chomp ($line); $line = ($line eq "yes"); my %au = get_autologin(''); - return ($line && $au{autologin} && $au{desktop}); + return ($line && defined $au{autologin}); } sub get_autologin { diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 3c6e7092d..a5a8adcbf 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -138,9 +138,10 @@ user "$adsl->{login}" ['ppp-compress-26', 'ppp_deflate']); $::isStandalone and modules::write_conf($prefix); my $mgmtrpm; - if($::isStandalone) { + if ($::isStandalone) { $mgmtrpm = `grep speedtouch_mgmt /var/lib/urpmi/depslist.ordered` ? 1 : 0; } else { + require pkgs; $mgmtrpm = pkgs::packageByName($in->{package}, "speedtouch_mgmt"); } $mgmtrpm ? $in->do_pkgs->install('speedtouch_mgmt') : $in->ask_warn('', _('You need the alcatel microcode. -- cgit v1.2.1