From dae8f382bf5ac6bce4f5bb241bcb3ec89984c345 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 24 Aug 2001 01:25:49 +0000 Subject: added aliases for speedtouch stuff --- perl-install/network/adsl.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 956de5862..815fead0d 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -4,6 +4,7 @@ use common; use run_program; use network::tools; use network::ethernet; +use modules; use vars qw(@ISA @EXPORT); use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file); @@ -126,6 +127,14 @@ $USERLINE defaultroute user "$adsl->{login}" }); + modules::add_alias($_->[0], $_->[1]) foreach([char-major-108, ppp_generic], + [tty-ldisc-3, ppp_async], + [tty-ldisc-13, n_hdlc], + [tty-ldisc-14, ppp_synctty], + [ppp-compress-21, bsd_comp], + [ppp-compress-24, ppp_deflate], + [ppp-compress-26, ppp_deflate]); + $::isStandalone and modules::write_conf($prefix); } if ($adsl_type eq 'pptp') { -- cgit v1.2.1