From db7addb9a86f475e784671102ba4eebb8c18bd04 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Tue, 16 Sep 2003 14:16:56 +0000 Subject: fix firmware testing at installation --- perl-install/network/adsl.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 9844b2b64..372504570 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -208,7 +208,7 @@ user "$adsl->{login}" ['ppp-compress-26', 'ppp_deflate']; $::isStandalone and modules::write_conf($prefix); $in->do_pkgs->what_provides("speedtouch_mgmt") and $in->do_pkgs->install('speedtouch_mgmt'); - -e "/usr/share/speedtouch/mgmt.o" and return 1; + -e "$prefix/usr/share/speedtouch/mgmt.o" and return 1; firmware: @@ -222,7 +222,7 @@ user "$adsl->{login}" You can provide it now via a floppy or your windows partition, or skip and do it later."), $l) or return; - my $destination = '/usr/share/speedtouch/'; + my $destination = "$prefix/usr/share/speedtouch/"; $answer eq 'Use a floppy' and network::tools::copy_firmware('floppy', $destination, 'mgmt.o') || goto firmware; $answer eq 'Use my Windows partition' and network::tools::copy_firmware('windows', $destination, 'alcaudsl.sys') || goto firmware; $answer eq 'Do it later' and $in->ask_warn('', N("You need the Alcatel microcode. -- cgit v1.2.1