From 3af053ecfc2105a9637a86864012b6a6a1492c75 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Jan 2004 15:07:03 +0000 Subject: write_conf() doesn't need $prefix anymore --- perl-install/network/adsl.pm | 4 ++-- perl-install/network/ethernet.pm | 2 +- perl-install/network/netconnect.pm | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index fa7099afb..a0f273308 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -200,7 +200,7 @@ user "$adsl->{login}" ['ppp-compress-21', 'bsd_comp'], ['ppp-compress-24', 'ppp_deflate'], ['ppp-compress-26', 'ppp_deflate']; - $::isStandalone and modules::write_conf($prefix); + $::isStandalone and modules::write_conf(); $in->do_pkgs->what_provides("speedtouch_mgmt") and $in->do_pkgs->ensure_is_installed('speedtouch_mgmt', '/usr/share/speedtouch/mgmt.o', 'auto'); -e "$prefix/usr/share/speedtouch/mgmt.o" and goto end_firmware; @@ -252,7 +252,7 @@ lcp-echo-interval 0 modules::add_alias($_->[0], $_->[1]) foreach ['char-major-108', 'ppp_generic'], ['tty-ldisc-14', 'ppp_synctty'], ['tty-ldisc-13', 'n_hdlc']; - $::isStandalone and modules::write_conf($prefix); + $::isStandalone and modules::write_conf(); } if ($adsl_type eq 'pptp') { diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index f67033862..80419f9b5 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -36,7 +36,7 @@ qq( /sbin/ifup lo ), $netcnx->{type}); } - $::isStandalone and modules::write_conf($prefix); + $::isStandalone and modules::write_conf(); 1; } diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 06c87f287..b4d7da68c 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -680,7 +680,7 @@ I cannot set up this connection type.")), return; format => sub { my ($e) = @_; $e->[0] . ($e->[1] ? " (using module $e->[1])" : "") }, post => sub { - modules::write_conf($::prefix) if $::isStandalone; + modules::write_conf() if $::isStandalone; my $_device = conf_network_card_backend($netc, $intf, $type, $interface->[0], $ipadr, $netadr); return "lan"; }, -- cgit v1.2.1